ac4544ea47
Looking with Katrin at the default configuration of Number::Format, she has the p_cs_precedes value set to 0 (put the symbol at the end) and p_sep_by_sep set to 1. Now it is possible to sent these values to the format subroutine. On this way, the tests can force them in order to pass on all configuration. This default value for this variable certainly depends on the locales. Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
77 lines
2.7 KiB
Perl
77 lines
2.7 KiB
Perl
use Modern::Perl;
|
|
|
|
use Test::More tests => 19;
|
|
|
|
use Test::MockModule;
|
|
use t::lib::Mocks;
|
|
|
|
use C4::Budgets;
|
|
my $budget_module = Test::MockModule->new('C4::Budgets');
|
|
my $currency;
|
|
$budget_module->mock( 'GetCurrency', sub { return $currency; } );
|
|
use_ok('Koha::Number::Price');
|
|
|
|
my $format = {
|
|
p_cs_precedes => 1, # Force to place the symbol at the beginning
|
|
p_sep_by_space => 0, # Force to not add a space between the symbol and the number
|
|
};
|
|
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'US' );
|
|
$currency = {
|
|
currency => 'USD',
|
|
symbol => '$',
|
|
rate => 1,
|
|
active => 1,
|
|
};
|
|
|
|
is( Koha::Number::Price->new->format( $format ), '0.00', 'US: format 0' );
|
|
is( Koha::Number::Price->new(3)->format( $format ), '3.00', 'US: format 3' );
|
|
is( Koha::Number::Price->new(1234567890)->format( $format ),
|
|
'1,234,567,890.00', 'US: format 1234567890' );
|
|
|
|
# FIXME This should be display symbol, but it was the case before the creation of this module
|
|
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ),
|
|
'0.00', 'US: format 0 with symbol' );
|
|
is( Koha::Number::Price->new(3)->format( { %$format, with_symbol => 1 } ),
|
|
'3.00', 'US: format 3 with symbol' );
|
|
is(
|
|
Koha::Number::Price->new(1234567890)
|
|
->format( { %$format, with_symbol => 1 }, 'US: format 1234567890 with symbol' ),
|
|
'1,234,567,890.00'
|
|
);
|
|
|
|
is( Koha::Number::Price->new->unformat, '0', 'US: unformat 0' );
|
|
is( Koha::Number::Price->new(3)->unformat, '3', 'US: unformat 3' );
|
|
is( Koha::Number::Price->new(1234567890)->unformat,
|
|
'1234567890', 'US: unformat 1234567890' );
|
|
|
|
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'FR' );
|
|
$currency = {
|
|
currency => 'EUR',
|
|
symbol => '€',
|
|
rate => 1,
|
|
active => 1,
|
|
};
|
|
|
|
# Actually,the price formating for France is 3,00€
|
|
# How put the symbol at the end with Number::Format?
|
|
is( Koha::Number::Price->new->format( $format ), '0,00', 'FR: format 0' );
|
|
is( Koha::Number::Price->new(3)->format( $format ), '3,00', 'FR: format 3' );
|
|
is(
|
|
Koha::Number::Price->new(1234567890)->format( $format ),
|
|
'1 234 567 890,00',
|
|
'FR: format 1234567890'
|
|
);
|
|
is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ),
|
|
'€0,00', 'FR: format 0 with symbol' );
|
|
is( Koha::Number::Price->new(3)->format( { %$format, with_symbol => 1 } ),
|
|
'€3,00', 'FR: format 3 with symbol' );
|
|
is(
|
|
Koha::Number::Price->new(1234567890)
|
|
->format( { %$format, with_symbol => 1 }, 'FR: format 123567890 with symbol' ),
|
|
'€1 234 567 890,00'
|
|
);
|
|
|
|
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' );
|