|
Lines 1-6
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
| 2 |
|
2 |
|
| 3 |
use Test::More tests => 32; |
3 |
use Test::More tests => 33; |
| 4 |
|
4 |
|
| 5 |
use Test::MockModule; |
5 |
use Test::MockModule; |
| 6 |
use t::lib::Mocks; |
6 |
use t::lib::Mocks; |
|
Lines 19-24
my $orig_locale = setlocale(LC_NUMERIC);
Link Here
|
| 19 |
my $format = { |
19 |
my $format = { |
| 20 |
p_cs_precedes => 1, # Force to place the symbol at the beginning |
20 |
p_cs_precedes => 1, # Force to place the symbol at the beginning |
| 21 |
}; |
21 |
}; |
|
|
22 |
|
| 23 |
is( Koha::Number::Price->new->format( $format ), '0.00', 'There is no currency defined yet, do not explode!' ); |
| 24 |
|
| 22 |
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'US' ); |
25 |
t::lib::Mocks::mock_preference( 'CurrencyFormat', 'US' ); |
| 23 |
$currency = Koha::Acquisition::Currency->new({ |
26 |
$currency = Koha::Acquisition::Currency->new({ |
| 24 |
currency => 'USD', |
27 |
currency => 'USD', |
| 25 |
- |
|
|