|
Lines 1-6
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
| 2 |
|
2 |
|
| 3 |
use Test::More tests => 28; |
3 |
use Test::More tests => 29; |
| 4 |
|
4 |
|
| 5 |
use Test::MockModule; |
5 |
use Test::MockModule; |
| 6 |
use t::lib::Mocks; |
6 |
use t::lib::Mocks; |
|
Lines 27-32
is( Koha::Number::Price->new->format( $format ), '0.00', 'US: format 0' );
Link Here
|
| 27 |
is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'US: format 3' ); |
27 |
is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'US: format 3' ); |
| 28 |
is( Koha::Number::Price->new(1234567890)->format( $format ), |
28 |
is( Koha::Number::Price->new(1234567890)->format( $format ), |
| 29 |
'1,234,567,890.00', 'US: format 1234567890' ); |
29 |
'1,234,567,890.00', 'US: format 1234567890' ); |
|
|
30 |
# Test a very big number |
| 31 |
is( Koha::Number::Price->new(99999999999999)->format( $format ), |
| 32 |
'99,999,999,999,999.00', 'US: format 99999999999999' ); |
| 30 |
|
33 |
|
| 31 |
# FIXME This should be display symbol, but it was the case before the creation of this module |
34 |
# FIXME This should be display symbol, but it was the case before the creation of this module |
| 32 |
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), |
35 |
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), |
| 33 |
- |
|
|