| 
      
            Lines 1-6
          
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          use Modern::Perl;  | 
          1 | 
          use Modern::Perl;  | 
        
        
          | 2 | 
           | 
          2 | 
           | 
        
          
            
              | 3 | 
              use Test::More tests => 30;  | 
              3 | 
              use Test::More tests => 31;  | 
            
        
          | 4 | 
           | 
          4 | 
           | 
        
        
          | 5 | 
          use Test::MockModule;  | 
          5 | 
          use Test::MockModule;  | 
        
        
          | 6 | 
          use t::lib::Mocks;  | 
          6 | 
          use t::lib::Mocks;  | 
        
  
    | 
      
            Lines 33-38
          is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'US: format 3' );
      
      
        Link Here
      
     | 
  
        
          | 33 | 
          is( Koha::Number::Price->new(1234567890)->format( $format ),  | 
          33 | 
          is( Koha::Number::Price->new(1234567890)->format( $format ),  | 
        
        
          | 34 | 
              '1,234,567,890.00', 'US: format 1234567890' );  | 
          34 | 
              '1,234,567,890.00', 'US: format 1234567890' );  | 
        
        
          | 35 | 
           | 
          35 | 
           | 
        
            
               | 
               | 
              36 | 
              is( Koha::Number::Price->new(100000000000000)->format, '100000000000000', 'Numbers too big are not formatted');  | 
            
            
              | 37 | 
               | 
            
        
          | 36 | 
          # FIXME This should be display symbol, but it was the case before the creation of this module  | 
          38 | 
          # FIXME This should be display symbol, but it was the case before the creation of this module  | 
        
        
          | 37 | 
          is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), | 
          39 | 
          is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), | 
        
        
          | 38 | 
              '0.00', 'US: format 0 with symbol' );  | 
          40 | 
              '0.00', 'US: format 0 with symbol' );  | 
        
            
              | 39 | 
              -   | 
               | 
               |