| blob | b7e2aa0d206f7737cd733fd5997c99f8e24be0e4 |
1 use Modern::Perl;
2 use Test::More;
3 use Test::MockModule;
5 use t::lib::Mocks;
7 use Module::Load::Conditional qw/check_install/;
9 BEGIN {
10 if ( check_install( module => 'Test::DBIx::Class' ) ) {
11 plan tests => 16;
12 } else {
13 plan skip_all => "Need Test::DBIx::Class"
14 }
15 }
17 use_ok('C4::Acquisition');
18 use_ok('C4::Context');
19 use_ok('Koha::Number::Price');
21 t::lib::Mocks::mock_preference( 'gist', '0.02|0.05|0.196' );
23 use Test::DBIx::Class;
25 my $db = Test::MockModule->new('Koha::Database');
26 $db->mock( _new_schema => sub { return Schema(); } );
27 Koha::Database::flush_schema_cache();
29 fixtures_ok [
30 Currency => [
31 [ qw/ currency symbol rate active / ],
32 [ 'my_cur', '€', 1, 1, ],
33 ],
34 Aqbookseller => [
35 [ qw/ id name listincgst invoiceincgst / ],
36 [ 1, '0 0', 0, 0 ],
37 [ 2, '0 1', 0, 1 ],
38 [ 3, '1 0', 1, 0 ],
39 [ 4, '1 1', 1, 1 ],
40 ],
41 ], 'add currency fixtures';
43 my $bookseller_module = Test::MockModule->new('Koha::Acquisition::Bookseller');
45 my ( $basketno_0_0, $basketno_1_1 );
46 my ( $invoiceid_0_0, $invoiceid_1_1 );
47 my $today;
49 for my $currency_format ( qw( US FR ) ) {
50 t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format );
51 subtest 'Configuration 1: 0 0 (Vendor List prices do not include tax / Invoice prices do not include tax)' => sub {
52 plan tests => 8;
54 my $biblionumber_0_0 = 42;
56 my $order_0_0 = {
57 biblionumber => $biblionumber_0_0,
58 quantity => 2,
59 listprice => 82,
60 unitprice => 73.80,
61 quantityreceived => 2,
62 basketno => $basketno_0_0,
63 invoiceid => $invoiceid_0_0,
64 rrp => 82.00,
65 ecost => 73.80,
66 tax_rate => 0.0500,
67 discount => 10,
68 datereceived => $today
69 };
70 $order_0_0 = C4::Acquisition::populate_order_with_prices(
71 {
72 order => $order_0_0,
73 booksellerid => 1,
74 ordering => 1,
75 }
76 );
78 compare(
79 {
80 got => $order_0_0->{rrp_tax_included},
81 expected => 86.10,
82 conf => '0 0',
83 field => 'rrp_tax_included'
84 }
85 );
86 compare(
87 {
88 got => $order_0_0->{rrp_tax_excluded},
89 expected => 82.00,
90 conf => '0 0',
91 field => 'rrp_tax_excluded'
92 }
93 );
94 compare(
95 {
96 got => $order_0_0->{ecost_tax_included},
97 expected => 77.49,
98 conf => '0 0',
99 field => 'ecost_tax_included'
100 }
101 );
102 compare(
103 {
104 got => $order_0_0->{ecost_tax_excluded},
105 expected => 73.80,
106 conf => '0 0',
107 field => 'ecost_tax_excluded'
108 }
109 );
110 compare(
111 {
112 got => $order_0_0->{tax_value_on_ordering},
113 expected => 7.38,
114 conf => '0 0',
115 field => 'tax_value'
116 }
117 );
119 $order_0_0 = C4::Acquisition::populate_order_with_prices(
120 {
121 order => $order_0_0,
122 booksellerid => 1,
123 receiving => 1,
124 }
125 );
127 compare(
128 {
129 got => $order_0_0->{unitprice_tax_included},
130 expected => 77.49,
131 conf => '0 0',
132 field => 'unitprice_tax_included'
133 }
134 );
135 compare(
136 {
137 got => $order_0_0->{unitprice_tax_excluded},
138 expected => 73.80,
139 conf => '0 0',
140 field => 'unitprice_tax_excluded'
141 }
142 );
143 compare(
144 {
145 got => $order_0_0->{tax_value_on_receiving},
146 expected => 7.38,
147 conf => '0 0',
148 field => 'tax_value'
149 }
150 );
151 };
153 subtest 'Configuration 1: 1 1 (Vendor List prices do include tax / Invoice prices include tax)' => sub {
154 plan tests => 11;
156 my $biblionumber_1_1 = 43;
157 my $order_1_1 = {
158 biblionumber => $biblionumber_1_1,
159 quantity => 2,
160 listprice => 82,
161 unitprice => 73.80,
162 quantityreceived => 2,
163 basketno => $basketno_1_1,
164 invoiceid => $invoiceid_1_1,
165 rrp => 82.00,
166 ecost => 73.80,
167 tax_rate => 0.0500,
168 discount => 10,
169 datereceived => $today
170 };
172 $order_1_1 = C4::Acquisition::populate_order_with_prices(
173 {
174 order => $order_1_1,
175 booksellerid => 4,
176 ordering => 1,
177 }
178 );
180 compare(
181 {
182 got => $order_1_1->{rrp_tax_included},
183 expected => 82.00,
184 conf => '1 1',
185 field => 'rrp_tax_included'
186 }
187 );
188 compare(
189 {
190 got => $order_1_1->{rrp_tax_excluded},
191 expected => 78.10,
192 conf => '1 1',
193 field => 'rrp_tax_excluded'
194 }
195 );
196 compare(
197 {
198 got => $order_1_1->{ecost_tax_included},
199 expected => 73.80,
200 conf => '1 1',
201 field => 'ecost_tax_included'
202 }
203 );
204 compare(
205 {
206 got => $order_1_1->{ecost_tax_excluded},
207 expected => 70.29,
208 conf => '1 1',
209 field => 'ecost_tax_excluded'
210 }
211 );
212 compare(
213 {
214 got => $order_1_1->{tax_value_on_ordering},
215 expected => 7.03,
216 conf => '1 1',
217 field => 'tax_value'
218 }
219 );
221 $order_1_1 = C4::Acquisition::populate_order_with_prices(
222 {
223 order => $order_1_1,
224 booksellerid => 4,
225 receiving => 1,
226 }
227 );
229 compare(
230 {
231 got => $order_1_1->{unitprice_tax_included},
232 expected => 73.80,
233 conf => '1 1',
234 field => 'unitprice_tax_included'
235 }
236 );
237 compare(
238 {
239 got => $order_1_1->{unitprice_tax_excluded},
240 expected => 70.29,
241 conf => '1 1',
242 field => 'unitprice_tax_excluded'
243 }
244 );
245 compare(
246 {
247 got => $order_1_1->{tax_value_on_receiving},
248 expected => 7.03,
249 conf => '1 1',
250 field => 'tax_value'
251 }
252 );
254 # When unitprice is 0.00 C4::Acquisition->populate_order_with_prices() falls back to using ecost_tax_included and ecost_tax_excluded
255 $order_1_1 = {
256 biblionumber => $biblionumber_1_1,
257 quantity => 1,
258 listprice => 10,
259 unitprice => '0.00',
260 quantityreceived => 1,
261 basketno => $basketno_1_1,
262 invoiceid => $invoiceid_1_1,
263 rrp => 10.00,
264 ecost => 10.00,
265 tax_rate => 0.1500,
266 discount => 0,
267 datereceived => $today
268 };
270 $order_1_1 = C4::Acquisition::populate_order_with_prices(
271 {
272 order => $order_1_1,
273 booksellerid => 4,
274 ordering => 1,
275 }
276 );
278 compare(
279 {
280 got => $order_1_1->{ecost_tax_included},
281 expected => 10.00,
282 conf => '1 1',
283 field => 'ecost_tax_included'
284 }
285 );
286 compare(
287 {
288 got => $order_1_1->{ecost_tax_excluded},
289 expected => 8.70,
290 conf => '1 1',
291 field => 'ecost_tax_excluded'
292 }
293 );
294 compare(
295 {
296 got => $order_1_1->{tax_value_on_ordering},
297 expected => 1.30,
298 conf => '1 1',
299 field => 'tax_value'
300 }
301 );
302 };
304 subtest 'Configuration 1: 1 0 (Vendor List prices include tax / Invoice prices do not include tax)' => sub {
305 plan tests => 9;
307 my $biblionumber_1_0 = 44;
308 my $order_1_0 = {
309 biblionumber => $biblionumber_1_0,
310 quantity => 2,
311 listprice => 82,
312 unitprice => 0,
313 quantityreceived => 2,
314 basketno => $basketno_1_1,
315 invoiceid => $invoiceid_1_1,
316 rrp => 82.00,
317 ecost => 73.80,
318 tax_rate => 0.0500,
319 discount => 10,
320 datereceived => $today
321 };
323 $order_1_0 = C4::Acquisition::populate_order_with_prices(
324 {
325 order => $order_1_0,
326 booksellerid => 3,
327 ordering => 1,
328 }
329 );
331 compare(
332 {
333 got => $order_1_0->{rrp_tax_included},
334 expected => 82,
335 conf => '1 0',
336 field => 'rrp_tax_included'
337 }
338 );
339 compare(
340 {
341 got => $order_1_0->{rrp_tax_excluded},
342 expected => 78.10,
343 conf => '1 0',
344 field => 'rrp_tax_excluded'
345 }
346 );
347 compare(
348 {
349 got => $order_1_0->{ecost_tax_included},
350 expected => 73.80,
351 conf => '1 0',
352 field => 'ecost_tax_included'
353 }
354 );
355 compare(
356 {
357 got => $order_1_0->{ecost_tax_excluded},
358 expected => 70.29,
359 conf => '1 0',
360 field => 'ecost_tax_excluded'
361 }
362 );
363 # If we order with unitprice = 0, tax is calculated from the ecost
364 # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost
365 compare(
366 {
367 got => $order_1_0->{tax_value_on_ordering},
368 expected => 7.03,
369 conf => '1 0',
370 field => 'tax_value'
371 }
372 );
373 $order_1_0->{unitprice} = 70.29;
374 $order_1_0 = C4::Acquisition::populate_order_with_prices(
375 {
376 order => $order_1_0,
377 booksellerid => 3,
378 ordering => 1,
379 }
380 );
381 # If a unitprice is provided at ordering, we calculate the tax from that
382 compare(
383 {
384 got => $order_1_0->{tax_value_on_ordering},
385 expected => 6.69,
386 conf => '1 0',
387 field => 'tax_value'
388 }
389 );
391 $order_1_0 = C4::Acquisition::populate_order_with_prices(
392 {
393 order => $order_1_0,
394 booksellerid => 3,
395 receiving => 1,
396 }
397 );
399 compare(
400 {
401 got => $order_1_0->{unitprice_tax_included},
402 expected => 73.80,
403 conf => '1 0',
404 field => 'unitprice_tax_included'
405 }
406 );
407 compare(
408 {
409 got => $order_1_0->{unitprice_tax_excluded},
410 expected => 70.29,
411 conf => '1 0',
412 field => 'unitprice_tax_excluded'
413 }
414 );
415 compare(
416 {
417 got => $order_1_0->{tax_value_on_receiving},
418 expected => 7.03,
419 conf => '1 0',
420 field => 'tax_value'
421 }
422 );
423 };
425 subtest 'Configuration 1: 0 1 (Vendor List prices do not include tax / Invoice prices include tax)' => sub {
426 plan tests => 9;
428 my $biblionumber_0_1 = 45;
429 my $order_0_1 = {
430 biblionumber => $biblionumber_0_1,
431 quantity => 2,
432 listprice => 82,
433 unitprice => 0,
434 quantityreceived => 2,
435 basketno => $basketno_1_1,
436 invoiceid => $invoiceid_1_1,
437 rrp => 82.00,
438 ecost => 73.80,
439 tax_rate => 0.0500,
440 discount => 10,
441 datereceived => $today
442 };
444 $order_0_1 = C4::Acquisition::populate_order_with_prices(
445 {
446 order => $order_0_1,
447 booksellerid => 2,
448 ordering => 1,
449 }
450 );
452 compare(
453 {
454 got => $order_0_1->{rrp_tax_included},
455 expected => 86.10,
456 conf => '0 1',
457 field => 'rrp_tax_included'
458 }
459 );
460 compare(
461 {
462 got => $order_0_1->{rrp_tax_excluded},
463 expected => 82.00,
464 conf => '0 1',
465 field => 'rrp_tax_excluded'
466 }
467 );
468 compare(
469 {
470 got => $order_0_1->{ecost_tax_included},
471 expected => 77.49,
472 conf => '0 1',
473 field => 'ecost_tax_included'
474 }
475 );
476 compare(
477 {
478 got => $order_0_1->{ecost_tax_excluded},
479 expected => 73.80,
480 conf => '0 1',
481 field => 'ecost_tax_excluded'
482 }
483 );
484 # If we order with unitprice = 0, tax is calculated from the ecost
485 # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost
486 compare(
487 {
488 got => $order_0_1->{tax_value_on_ordering},
489 expected => 7.38,
490 conf => '0 1',
491 field => 'tax_value'
492 }
493 );
494 $order_0_1->{unitprice} = 77.490000;
495 $order_0_1 = C4::Acquisition::populate_order_with_prices(
496 {
497 order => $order_0_1,
498 booksellerid => 2,
499 ordering => 1,
500 }
501 );
502 # If a unitprice is provided at ordering, we calculate the tax from that
503 compare(
504 {
505 got => $order_0_1->{tax_value_on_ordering},
506 expected => 7.75,
507 conf => '0 1',
508 field => 'tax_value'
509 }
510 );
511 $order_0_1 = C4::Acquisition::populate_order_with_prices(
512 {
513 order => $order_0_1,
514 booksellerid => 2,
515 receiving => 1,
516 }
517 );
519 compare(
520 {
521 got => $order_0_1->{unitprice_tax_included},
522 expected => 77.49,
523 conf => '0 1',
524 field => 'unitprice_tax_included'
525 }
526 );
527 compare(
528 {
529 got => $order_0_1->{unitprice_tax_excluded},
530 expected => 73.80,
531 conf => '0 1',
532 field => 'unitprice_tax_excluded'
533 }
534 );
535 compare(
536 {
537 got => $order_0_1->{tax_value_on_receiving},
538 expected => 7.38,
539 conf => '0 1',
540 field => 'tax_value'
541 }
542 );
543 };
545 }
547 sub compare {
548 my ($params) = @_;
549 is(
550 Koha::Number::Price->new( $params->{got} )->format,
551 Koha::Number::Price->new( $params->{expected} )->format,
552 "configuration $params->{conf}: $params->{field} should be correctly calculated"
553 );
554 }
556 # format_for_editing
557 for my $currency_format ( qw( US FR ) ) {
558 t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format );
559 is( Koha::Number::Price->new( 1234567 )->format_for_editing, '1234567.00', 'format_for_editing should return unformated integer part with 2 decimals' );
560 is( Koha::Number::Price->new( 1234567.89 )->format_for_editing, '1234567.89', 'format_for_editing should return unformated integer part with 2 decimals' );
561 }