t/Prices.t

   1 use Modern::Perl;
   2 use Test::More;
   3 use Test::MockModule;
   4
   5 use t::lib::Mocks;
   6
   7 use Module::Load::Conditional qw/check_install/;
   8
   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 }
  16
  17 use_ok('C4::Acquisition');
  18 use_ok('C4::Context');
  19 use_ok('Koha::Number::Price');
  20
  21 t::lib::Mocks::mock_preference( 'gist', '0.02|0.05|0.196' );
  22
  23 use Test::DBIx::Class;
  24
  25 my $db = Test::MockModule->new('Koha::Database');
  26 $db->mock( _new_schema => sub { return Schema(); } );
  27 Koha::Database::flush_schema_cache();
  28
  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';
  42
  43 my $bookseller_module = Test::MockModule->new('Koha::Acquisition::Bookseller');
  44
  45 my ( $basketno_0_0,  $basketno_1_1,  $basketno_1_0,  $basketno_0_1 );
  46 my ( $invoiceid_0_0, $invoiceid_1_1, $invoiceid_1_0, $invoiceid_0_1 );
  47 my $today;
  48
  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;
  53
  54         my $biblionumber_0_0 = 42;
  55
  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         );
  77
  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         );
 118
 119         $order_0_0 = C4::Acquisition::populate_order_with_prices(
 120             {
 121                 order        => $order_0_0,
 122                 booksellerid => 1,
 123                 receiving    => 1,
 124             }
 125         );
 126
 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     };
 152
 153     subtest 'Configuration 1: 1 1 (Vendor List prices do include tax / Invoice prices include tax)' => sub {
 154         plan tests => 8;
 155
 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         };
 171
 172         $order_1_1 = C4::Acquisition::populate_order_with_prices(
 173             {
 174                 order        => $order_1_1,
 175                 booksellerid => 4,
 176                 ordering     => 1,
 177             }
 178         );
 179
 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         );
 220
 221         $order_1_1 = C4::Acquisition::populate_order_with_prices(
 222             {
 223                 order        => $order_1_1,
 224                 booksellerid => 4,
 225                 receiving    => 1,
 226             }
 227         );
 228
 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         );
 253     };
 254
 255     subtest 'Configuration 1: 1 0 (Vendor List prices include tax / Invoice prices do not include tax)' => sub {
 256         plan tests => 9;
 257
 258         my $biblionumber_1_0 = 44;
 259         my $order_1_0        = {
 260             biblionumber     => $biblionumber_1_0,
 261             quantity         => 2,
 262             listprice        => 82,
 263             unitprice        => 0,
 264             quantityreceived => 2,
 265             basketno         => $basketno_1_1,
 266             invoiceid        => $invoiceid_1_1,
 267             rrp              => 82.00,
 268             ecost            => 73.80,
 269             tax_rate         => 0.0500,
 270             discount         => 10,
 271             datereceived     => $today
 272         };
 273
 274         $order_1_0 = C4::Acquisition::populate_order_with_prices(
 275             {
 276                 order        => $order_1_0,
 277                 booksellerid => 3,
 278                 ordering     => 1,
 279             }
 280         );
 281
 282         compare(
 283             {
 284                 got      => $order_1_0->{rrp_tax_included},
 285                 expected => 82,
 286                 conf     => '1 0',
 287                 field    => 'rrp_tax_included'
 288             }
 289         );
 290         compare(
 291             {
 292                 got      => $order_1_0->{rrp_tax_excluded},
 293                 expected => 78.10,
 294                 conf     => '1 0',
 295                 field    => 'rrp_tax_excluded'
 296             }
 297         );
 298         compare(
 299             {
 300                 got      => $order_1_0->{ecost_tax_included},
 301                 expected => 73.80,
 302                 conf     => '1 0',
 303                 field    => 'ecost_tax_included'
 304             }
 305         );
 306         compare(
 307             {
 308                 got      => $order_1_0->{ecost_tax_excluded},
 309                 expected => 70.29,
 310                 conf     => '1 0',
 311                 field    => 'ecost_tax_excluded'
 312             }
 313         );
 314         # If we order with unitprice = 0, tax is calculated from the ecost
 315         # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost
 316         compare(
 317             {
 318                 got      => $order_1_0->{tax_value_on_ordering},
 319                 expected => 7.03,
 320                 conf     => '1 0',
 321                 field    => 'tax_value'
 322             }
 323         );
 324         $order_1_0->{unitprice} = 70.29;
 325         $order_1_0 = C4::Acquisition::populate_order_with_prices(
 326             {
 327                 order        => $order_1_0,
 328                 booksellerid => 3,
 329                 ordering    => 1,
 330             }
 331         );
 332         # If a unitprice is provided at ordering, we calculate the tax from that
 333         compare(
 334             {
 335                 got      => $order_1_0->{tax_value_on_ordering},
 336                 expected => 6.69,
 337                 conf     => '1 0',
 338                 field    => 'tax_value'
 339             }
 340         );
 341
 342         $order_1_0 = C4::Acquisition::populate_order_with_prices(
 343             {
 344                 order        => $order_1_0,
 345                 booksellerid => 3,
 346                 receiving    => 1,
 347             }
 348         );
 349
 350         compare(
 351             {
 352                 got      => $order_1_0->{unitprice_tax_included},
 353                 expected => 73.80,
 354                 conf     => '1 0',
 355                 field    => 'unitprice_tax_included'
 356             }
 357         );
 358         compare(
 359             {
 360                 got      => $order_1_0->{unitprice_tax_excluded},
 361                 expected => 70.29,
 362                 conf     => '1 0',
 363                 field    => 'unitprice_tax_excluded'
 364             }
 365         );
 366         compare(
 367             {
 368                 got      => $order_1_0->{tax_value_on_receiving},
 369                 expected => 7.03,
 370                 conf     => '1 0',
 371                 field    => 'tax_value'
 372             }
 373         );
 374     };
 375
 376     subtest 'Configuration 1: 0 1 (Vendor List prices do not include tax / Invoice prices include tax)' => sub {
 377         plan tests => 9;
 378
 379         my $biblionumber_0_1 = 45;
 380         my $order_0_1        = {
 381             biblionumber     => $biblionumber_0_1,
 382             quantity         => 2,
 383             listprice        => 82,
 384             unitprice        => 0,
 385             quantityreceived => 2,
 386             basketno         => $basketno_1_1,
 387             invoiceid        => $invoiceid_1_1,
 388             rrp              => 82.00,
 389             ecost            => 73.80,
 390             tax_rate         => 0.0500,
 391             discount         => 10,
 392             datereceived     => $today
 393         };
 394
 395         $order_0_1 = C4::Acquisition::populate_order_with_prices(
 396             {
 397                 order        => $order_0_1,
 398                 booksellerid => 2,
 399                 ordering     => 1,
 400             }
 401         );
 402
 403         compare(
 404             {
 405                 got      => $order_0_1->{rrp_tax_included},
 406                 expected => 86.10,
 407                 conf     => '0 1',
 408                 field    => 'rrp_tax_included'
 409             }
 410         );
 411         compare(
 412             {
 413                 got      => $order_0_1->{rrp_tax_excluded},
 414                 expected => 82.00,
 415                 conf     => '0 1',
 416                 field    => 'rrp_tax_excluded'
 417             }
 418         );
 419         compare(
 420             {
 421                 got      => $order_0_1->{ecost_tax_included},
 422                 expected => 77.49,
 423                 conf     => '0 1',
 424                 field    => 'ecost_tax_included'
 425             }
 426         );
 427         compare(
 428             {
 429                 got      => $order_0_1->{ecost_tax_excluded},
 430                 expected => 73.80,
 431                 conf     => '0 1',
 432                 field    => 'ecost_tax_excluded'
 433             }
 434         );
 435         # If we order with unitprice = 0, tax is calculated from the ecost
 436         # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost
 437         compare(
 438             {
 439                 got      => $order_0_1->{tax_value_on_ordering},
 440                 expected => 7.38,
 441                 conf     => '0 1',
 442                 field    => 'tax_value'
 443             }
 444         );
 445         $order_0_1->{unitprice} = 77.490000;
 446         $order_0_1 = C4::Acquisition::populate_order_with_prices(
 447             {
 448                 order        => $order_0_1,
 449                 booksellerid => 2,
 450                 ordering     => 1,
 451             }
 452         );
 453         # If a unitprice is provided at ordering, we calculate the tax from that
 454         compare(
 455             {
 456                 got      => $order_0_1->{tax_value_on_ordering},
 457                 expected => 7.75,
 458                 conf     => '0 1',
 459                 field    => 'tax_value'
 460             }
 461         );
 462         $order_0_1 = C4::Acquisition::populate_order_with_prices(
 463             {
 464                 order        => $order_0_1,
 465                 booksellerid => 2,
 466                 receiving    => 1,
 467             }
 468         );
 469
 470         compare(
 471             {
 472                 got      => $order_0_1->{unitprice_tax_included},
 473                 expected => 77.49,
 474                 conf     => '0 1',
 475                 field    => 'unitprice_tax_included'
 476             }
 477         );
 478         compare(
 479             {
 480                 got      => $order_0_1->{unitprice_tax_excluded},
 481                 expected => 73.80,
 482                 conf     => '0 1',
 483                 field    => 'unitprice_tax_excluded'
 484             }
 485         );
 486         compare(
 487             {
 488                 got      => $order_0_1->{tax_value_on_receiving},
 489                 expected => 7.38,
 490                 conf     => '0 1',
 491                 field    => 'tax_value'
 492             }
 493         );
 494     };
 495 }
 496
 497 sub compare {
 498     my ($params) = @_;
 499     is(
 500         Koha::Number::Price->new( $params->{got} )->format,
 501         Koha::Number::Price->new( $params->{expected} )->format,
 502 "configuration $params->{conf}: $params->{field} should be correctly calculated"
 503     );
 504 }
 505
 506 # format_for_editing
 507 for my $currency_format ( qw( US FR ) ) {
 508     t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format );
 509     is( Koha::Number::Price->new( 1234567 )->format_for_editing, '1234567.00', 'format_for_editing should return unformated integer part with 2 decimals' );
 510     is( Koha::Number::Price->new( 1234567.89 )->format_for_editing, '1234567.89', 'format_for_editing should return unformated integer part with 2 decimals' );
 511 }