Lines 1-6
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
|
2 |
|
3 |
use Test::More tests => 34; |
3 |
use Test::More tests => 35; |
4 |
|
4 |
|
5 |
use Test::MockModule; |
5 |
use Test::MockModule; |
6 |
use t::lib::Mocks; |
6 |
use t::lib::Mocks; |
Lines 37-42
is( Koha::Number::Price->new(1234567890)->format( $format ),
Link Here
|
37 |
'1,234,567,890.00', 'US: format 1234567890' ); |
37 |
'1,234,567,890.00', 'US: format 1234567890' ); |
38 |
|
38 |
|
39 |
is( Koha::Number::Price->new(100000000000000)->format, '100000000000000', 'Numbers too big are not formatted'); |
39 |
is( Koha::Number::Price->new(100000000000000)->format, '100000000000000', 'Numbers too big are not formatted'); |
|
|
40 |
is( Koha::Number::Price->new(-100000000000000)->format, '-100000000000000', 'Negative numbers too big are not formatted'); |
40 |
|
41 |
|
41 |
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), |
42 |
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), |
42 |
'$0.00', 'US: format 0 with symbol' ); |
43 |
'$0.00', 'US: format 0 with symbol' ); |
43 |
- |
|
|