|
Lines 48-54
my $today;
Link Here
|
| 48 |
|
48 |
|
| 49 |
for my $currency_format ( qw( US FR ) ) { |
49 |
for my $currency_format ( qw( US FR ) ) { |
| 50 |
t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format ); |
50 |
t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format ); |
| 51 |
subtest 'Configuration 1: 0 0' => sub { |
51 |
subtest 'Configuration 1: 0 0 (Vendor List prices do not include tax / Invoice prices do not include tax)' => sub { |
| 52 |
plan tests => 8; |
52 |
plan tests => 8; |
| 53 |
|
53 |
|
| 54 |
my $biblionumber_0_0 = 42; |
54 |
my $biblionumber_0_0 = 42; |
|
Lines 150-156
for my $currency_format ( qw( US FR ) ) {
Link Here
|
| 150 |
); |
150 |
); |
| 151 |
}; |
151 |
}; |
| 152 |
|
152 |
|
| 153 |
subtest 'Configuration 1: 1 1' => sub { |
153 |
subtest 'Configuration 1: 1 1 (Vendor List prices do include tax / Invoice prices include tax)' => sub { |
| 154 |
plan tests => 8; |
154 |
plan tests => 8; |
| 155 |
|
155 |
|
| 156 |
my $biblionumber_1_1 = 43; |
156 |
my $biblionumber_1_1 = 43; |
|
Lines 252-258
for my $currency_format ( qw( US FR ) ) {
Link Here
|
| 252 |
); |
252 |
); |
| 253 |
}; |
253 |
}; |
| 254 |
|
254 |
|
| 255 |
subtest 'Configuration 1: 1 0' => sub { |
255 |
subtest 'Configuration 1: 1 0 (Vendor List prices include tax / Invoice prices do not include tax)' => sub { |
| 256 |
plan tests => 9; |
256 |
plan tests => 9; |
| 257 |
|
257 |
|
| 258 |
my $biblionumber_1_0 = 44; |
258 |
my $biblionumber_1_0 = 44; |
|
Lines 373-379
for my $currency_format ( qw( US FR ) ) {
Link Here
|
| 373 |
); |
373 |
); |
| 374 |
}; |
374 |
}; |
| 375 |
|
375 |
|
| 376 |
subtest 'Configuration 1: 0 1' => sub { |
376 |
subtest 'Configuration 1: 0 1 (Vendor List prices do not include tax / Invoice prices include tax)' => sub { |
| 377 |
plan tests => 9; |
377 |
plan tests => 9; |
| 378 |
|
378 |
|
| 379 |
my $biblionumber_0_1 = 45; |
379 |
my $biblionumber_0_1 = 45; |
| 380 |
- |
|
|