gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 16768: Add tests for Swiss number format 

Testplan:
- Apply patch
- Run t/Number/Price.t

Signed-off-by: Mirko Tietgen <mirko@abunchofthings.net>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Marc Véron 2016-06-18 09:16:58 +02:00 committed by Kyle M Hall
parent 3586d1504b
commit 85271cabc7
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
t/Number/Price.t
View File

@ -1,6 +1,6 @@
use Modern::Perl;
use Test::More tests => 19;
use Test::More tests => 28;
use Test::MockModule;
use t::lib::Mocks;
@ -75,3 +75,34 @@ is( Koha::Number::Price->new->unformat, '0', 'FR: unformat 0' );
is( Koha::Number::Price->new(3)->unformat, '3', 'FR: unformat 3' );
is( Koha::Number::Price->new(1234567890)->unformat,
'1234567890', 'FR: unformat 1234567890' );
# Price formatting for Switzerland: 1'234'567.89
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'CH' );
$currency = Koha::Acquisition::Currency->new({
currency => 'nnn',
symbol => 'CHF',
rate => 1,
active => 1,
});
is( Koha::Number::Price->new->format( $format ), '0.00', 'CH: format 0' );
is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'CH: format 3' );
is(
Koha::Number::Price->new(1234567890)->format( $format ),
'1\'234\'567\'890.00',
'CHF: format 1234567890'
);
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ),
'CHF0.00', 'CH: format 0 with symbol' );
is( Koha::Number::Price->new(3)->format( { %$format, with_symbol => 1 } ),
'CHF3.00', 'CH: format 3 with symbol' );
is(
Koha::Number::Price->new(1234567890)
->format( { %$format, with_symbol => 1 }, 'CH: format 123567890 with symbol' ),
'CHF1\'234\'567\'890.00'
);
is( Koha::Number::Price->new->unformat, '0', 'CHF: unformat 0' );
is( Koha::Number::Price->new(3)->unformat, '3', 'CHF: unformat 3' );
is( Koha::Number::Price->new(1234567890)->unformat,
'1234567890', 'CHF: unformat 1234567890' );