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 |
- |
|
|