Lines 1-6
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
|
2 |
|
3 |
use Test::More tests => 19; |
3 |
use Test::More tests => 28; |
4 |
|
4 |
|
5 |
use Test::MockModule; |
5 |
use Test::MockModule; |
6 |
use t::lib::Mocks; |
6 |
use t::lib::Mocks; |
Lines 75-77
is( Koha::Number::Price->new->unformat, '0', 'FR: unformat 0' );
Link Here
|
75 |
is( Koha::Number::Price->new(3)->unformat, '3', 'FR: unformat 3' ); |
75 |
is( Koha::Number::Price->new(3)->unformat, '3', 'FR: unformat 3' ); |
76 |
is( Koha::Number::Price->new(1234567890)->unformat, |
76 |
is( Koha::Number::Price->new(1234567890)->unformat, |
77 |
'1234567890', 'FR: unformat 1234567890' ); |
77 |
'1234567890', 'FR: unformat 1234567890' ); |
78 |
- |
78 |
|
|
|
79 |
# Price formatting for Switzerland: 1'234'567.89 |
80 |
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'CH' ); |
81 |
$currency = Koha::Acquisition::Currency->new({ |
82 |
currency => 'nnn', |
83 |
symbol => 'CHF', |
84 |
rate => 1, |
85 |
active => 1, |
86 |
}); |
87 |
|
88 |
is( Koha::Number::Price->new->format( $format ), '0.00', 'CH: format 0' ); |
89 |
is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'CH: format 3' ); |
90 |
is( |
91 |
Koha::Number::Price->new(1234567890)->format( $format ), |
92 |
'1\'234\'567\'890.00', |
93 |
'CHF: format 1234567890' |
94 |
); |
95 |
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), |
96 |
'CHF0.00', 'CH: format 0 with symbol' ); |
97 |
is( Koha::Number::Price->new(3)->format( { %$format, with_symbol => 1 } ), |
98 |
'CHF3.00', 'CH: format 3 with symbol' ); |
99 |
is( |
100 |
Koha::Number::Price->new(1234567890) |
101 |
->format( { %$format, with_symbol => 1 }, 'CH: format 123567890 with symbol' ), |
102 |
'CHF1\'234\'567\'890.00' |
103 |
); |
104 |
|
105 |
is( Koha::Number::Price->new->unformat, '0', 'CHF: unformat 0' ); |
106 |
is( Koha::Number::Price->new(3)->unformat, '3', 'CHF: unformat 3' ); |
107 |
is( Koha::Number::Price->new(1234567890)->unformat, |
108 |
'1234567890', 'CHF: unformat 1234567890' ); |