Lines 67-72
for my $currency_format ( qw( US FR ) ) {
Link Here
|
67 |
discount => 10.0000, |
67 |
discount => 10.0000, |
68 |
datereceived => $today |
68 |
datereceived => $today |
69 |
}; |
69 |
}; |
|
|
70 |
|
70 |
$order_0_0 = C4::Acquisition::populate_order_with_prices( |
71 |
$order_0_0 = C4::Acquisition::populate_order_with_prices( |
71 |
{ |
72 |
{ |
72 |
order => $order_0_0, |
73 |
order => $order_0_0, |
Lines 151-164
for my $currency_format ( qw( US FR ) ) {
Link Here
|
151 |
}; |
152 |
}; |
152 |
|
153 |
|
153 |
subtest 'Configuration 1: 1 1' => sub { |
154 |
subtest 'Configuration 1: 1 1' => sub { |
154 |
plan tests => 8; |
155 |
plan tests => 9; |
155 |
|
156 |
|
156 |
my $biblionumber_1_1 = 43; |
157 |
my $biblionumber_1_1 = 43; |
157 |
my $order_1_1 = { |
158 |
my $order_1_1 = { |
158 |
biblionumber => $biblionumber_1_1, |
159 |
biblionumber => $biblionumber_1_1, |
159 |
quantity => 2, |
160 |
quantity => 2, |
160 |
listprice => 82.000000, |
161 |
listprice => 82.000000, |
161 |
unitprice => 73.800000, |
|
|
162 |
quantityreceived => 2, |
162 |
quantityreceived => 2, |
163 |
basketno => $basketno_1_1, |
163 |
basketno => $basketno_1_1, |
164 |
invoiceid => $invoiceid_1_1, |
164 |
invoiceid => $invoiceid_1_1, |
Lines 218-223
for my $currency_format ( qw( US FR ) ) {
Link Here
|
218 |
} |
218 |
} |
219 |
); |
219 |
); |
220 |
|
220 |
|
|
|
221 |
$order_1_1->{unitprice} = 73.800000; |
222 |
$order_1_1 = C4::Acquisition::populate_order_with_prices( |
223 |
{ |
224 |
order => $order_1_1, |
225 |
booksellerid => 4, |
226 |
ordering => 1, |
227 |
} |
228 |
); |
229 |
compare( |
230 |
{ |
231 |
got => $order_1_1->{tax_value_on_ordering}, |
232 |
expected => 7.03, |
233 |
conf => '1 1', |
234 |
field => 'tax_value' |
235 |
} |
236 |
); |
237 |
|
221 |
$order_1_1 = C4::Acquisition::populate_order_with_prices( |
238 |
$order_1_1 = C4::Acquisition::populate_order_with_prices( |
222 |
{ |
239 |
{ |
223 |
order => $order_1_1, |
240 |
order => $order_1_1, |
Lines 253-266
for my $currency_format ( qw( US FR ) ) {
Link Here
|
253 |
}; |
270 |
}; |
254 |
|
271 |
|
255 |
subtest 'Configuration 1: 1 0' => sub { |
272 |
subtest 'Configuration 1: 1 0' => sub { |
256 |
plan tests => 8; |
273 |
plan tests => 9; |
257 |
|
274 |
|
258 |
my $biblionumber_1_0 = 44; |
275 |
my $biblionumber_1_0 = 44; |
259 |
my $order_1_0 = { |
276 |
my $order_1_0 = { |
260 |
biblionumber => $biblionumber_1_0, |
277 |
biblionumber => $biblionumber_1_0, |
261 |
quantity => 2, |
278 |
quantity => 2, |
262 |
listprice => 82.000000, |
279 |
listprice => 82.000000, |
263 |
unitprice => 70.290000, |
|
|
264 |
quantityreceived => 2, |
280 |
quantityreceived => 2, |
265 |
basketno => $basketno_1_1, |
281 |
basketno => $basketno_1_1, |
266 |
invoiceid => $invoiceid_1_1, |
282 |
invoiceid => $invoiceid_1_1, |
Lines 320-325
for my $currency_format ( qw( US FR ) ) {
Link Here
|
320 |
} |
336 |
} |
321 |
); |
337 |
); |
322 |
|
338 |
|
|
|
339 |
$order_1_0->{unitprice} = 70.290000; |
340 |
$order_1_0 = C4::Acquisition::populate_order_with_prices( |
341 |
{ |
342 |
order => $order_1_0, |
343 |
booksellerid => 4, |
344 |
ordering => 1, |
345 |
} |
346 |
); |
347 |
compare( |
348 |
{ |
349 |
got => $order_1_0->{tax_value_on_ordering}, |
350 |
expected => 6.69, |
351 |
conf => '1 0 unitprice', |
352 |
field => 'tax_value' |
353 |
} |
354 |
); |
355 |
|
323 |
$order_1_0 = C4::Acquisition::populate_order_with_prices( |
356 |
$order_1_0 = C4::Acquisition::populate_order_with_prices( |
324 |
{ |
357 |
{ |
325 |
order => $order_1_0, |
358 |
order => $order_1_0, |
Lines 355-368
for my $currency_format ( qw( US FR ) ) {
Link Here
|
355 |
}; |
388 |
}; |
356 |
|
389 |
|
357 |
subtest 'Configuration 1: 0 1' => sub { |
390 |
subtest 'Configuration 1: 0 1' => sub { |
358 |
plan tests => 8; |
391 |
plan tests => 9; |
359 |
|
392 |
|
360 |
my $biblionumber_0_1 = 45; |
393 |
my $biblionumber_0_1 = 45; |
361 |
my $order_0_1 = { |
394 |
my $order_0_1 = { |
362 |
biblionumber => $biblionumber_0_1, |
395 |
biblionumber => $biblionumber_0_1, |
363 |
quantity => 2, |
396 |
quantity => 2, |
364 |
listprice => 82.000000, |
397 |
listprice => 82.000000, |
365 |
unitprice => 77.490000, |
|
|
366 |
quantityreceived => 2, |
398 |
quantityreceived => 2, |
367 |
basketno => $basketno_1_1, |
399 |
basketno => $basketno_1_1, |
368 |
invoiceid => $invoiceid_1_1, |
400 |
invoiceid => $invoiceid_1_1, |
Lines 422-427
for my $currency_format ( qw( US FR ) ) {
Link Here
|
422 |
} |
454 |
} |
423 |
); |
455 |
); |
424 |
|
456 |
|
|
|
457 |
$order_0_1->{unitprice} = 77.490000; |
458 |
$order_0_1 = C4::Acquisition::populate_order_with_prices( |
459 |
{ |
460 |
order => $order_0_1, |
461 |
booksellerid => 4, |
462 |
ordering => 1, |
463 |
} |
464 |
); |
465 |
compare( |
466 |
{ |
467 |
got => $order_0_1->{tax_value_on_ordering}, |
468 |
expected => 7.38, |
469 |
conf => '0 1 unitprice', |
470 |
field => 'tax_value' |
471 |
} |
472 |
); |
473 |
|
425 |
$order_0_1 = C4::Acquisition::populate_order_with_prices( |
474 |
$order_0_1 = C4::Acquisition::populate_order_with_prices( |
426 |
{ |
475 |
{ |
427 |
order => $order_0_1, |
476 |
order => $order_0_1, |
428 |
- |
|
|