| Lines 1-6
          
      
      
        Link Here | 
        
          | 1 | use Modern::Perl; | 1 | use Modern::Perl; | 
        
          | 2 |  | 2 |  | 
          
            
              | 3 | use Test::More tests => 35; | 3 | use Test::More tests => 36; | 
        
          | 4 |  | 4 |  | 
        
          | 5 | use Test::MockModule; | 5 | use Test::MockModule; | 
        
          | 6 | use t::lib::Mocks; | 6 | use t::lib::Mocks; | 
  
    | Lines 136-141
          is( Koha::Number::Price->new(3)->unformat, '3', 'CHF: unformat 3' );
      
      
        Link Here | 
        
          | 136 | is( Koha::Number::Price->new(1234567890)->unformat, | 136 | is( Koha::Number::Price->new(1234567890)->unformat, | 
        
          | 137 |     '1234567890', 'CHF: unformat 1234567890' ); | 137 |     '1234567890', 'CHF: unformat 1234567890' ); | 
        
          | 138 |  | 138 |  | 
            
              |  |  | 139 | # Rounding | 
            
              | 140 | is( Koha::Number::Price->new(17.955)->round, '17.96', 'Round 17.955' ); | 
            
              | 141 |  | 
        
          | 139 | subtest 'Changes for format' => sub { # See also bug 18736 | 142 | subtest 'Changes for format' => sub { # See also bug 18736 | 
        
          | 140 |     plan tests => 3; | 143 |     plan tests => 3; | 
        
          | 141 |  | 144 |  | 
            
              | 142 | -  |  |  |