From e6ea98ed890dc2d06fe53167737085d63081afb9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 Oct 2014 22:47:32 +0200 Subject: [PATCH] Bug 12844: Force the symbol place in the tests 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. --- Koha/Number/Price.pm | 5 +++++ t/Number/Price.t | 28 ++++++++++++++++------------ 2 files changed, 21 insertions(+), 12 deletions(-) diff --git a/Koha/Number/Price.pm b/Koha/Number/Price.pm index 2fb9c54..80854ab 100644 --- a/Koha/Number/Price.pm +++ b/Koha/Number/Price.pm @@ -56,6 +56,8 @@ sub unformat { sub _format_params { my ( $self, $params ) = @_; my $with_symbol = $params->{with_symbol} || 0; + my $p_cs_precedes = $params->{p_cs_precedes}; + my $p_sep_by_space = $params->{p_sep_by_space}; my $currency = GetCurrency(); my $currency_format = C4::Context->preference("CurrencyFormat"); @@ -79,6 +81,9 @@ sub _format_params { ); } + $format_params{p_cs_precedes} = $p_cs_precedes if defined $p_cs_precedes; + $format_params{p_sep_by_space} = $p_sep_by_space if defined $p_sep_by_space; + return \%format_params; } diff --git a/t/Number/Price.t b/t/Number/Price.t index edb6d53..3191e4d 100644 --- a/t/Number/Price.t +++ b/t/Number/Price.t @@ -11,6 +11,10 @@ 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', @@ -19,19 +23,19 @@ $currency = { active => 1, }; -is( Koha::Number::Price->new->format, '0.00', 'US: format 0' ); -is( Koha::Number::Price->new(3)->format, '3.00', 'US: format 3' ); -is( Koha::Number::Price->new(1234567890)->format, +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( { with_symbol => 1 } ), +is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), '0.00', 'US: format 0 with symbol' ); -is( Koha::Number::Price->new(3)->format( { with_symbol => 1 } ), +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( { with_symbol => 1 }, 'US: format 1234567890 with symbol' ), + ->format( { %$format, with_symbol => 1 }, 'US: format 1234567890 with symbol' ), '1,234,567,890.00' ); @@ -50,20 +54,20 @@ $currency = { # 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, '0,00', 'FR: format 0' ); -is( Koha::Number::Price->new(3)->format, '3,00', 'FR: format 3' ); +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, + Koha::Number::Price->new(1234567890)->format( $format ), '1 234 567 890,00', 'FR: format 1234567890' ); -is( Koha::Number::Price->new->format( { with_symbol => 1 } ), +is( Koha::Number::Price->new->format( { %$format, with_symbol => 1 } ), '€0,00', 'FR: format 0 with symbol' ); -is( Koha::Number::Price->new(3)->format( { with_symbol => 1 } ), +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( { with_symbol => 1 }, 'FR: format 123567890 with symbol' ), + ->format( { %$format, with_symbol => 1 }, 'FR: format 123567890 with symbol' ), '€1 234 567 890,00' ); -- 2.1.0