use Modern::Perl; use Test::More; use Test::MockModule; use t::lib::Mocks; use Module::Load::Conditional qw/check_install/; BEGIN { if ( check_install( module => 'Test::DBIx::Class' ) ) { plan tests => 16; } else { plan skip_all => "Need Test::DBIx::Class" } } use_ok('C4::Acquisition'); use_ok('C4::Context'); use_ok('Koha::Number::Price'); t::lib::Mocks::mock_preference( 'TaxRates', '0.02|0.05|0.196' ); use Test::DBIx::Class; my $db = Test::MockModule->new('Koha::Database'); $db->mock( _new_schema => sub { return Schema(); } ); Koha::Database::flush_schema_cache(); fixtures_ok [ Currency => [ [ qw/ currency symbol rate active / ], [ 'my_cur', '€', 1, 1, ], ], Aqbookseller => [ [ qw/ id name listincgst invoiceincgst / ], [ 1, '0 0', 0, 0 ], [ 2, '0 1', 0, 1 ], [ 3, '1 0', 1, 0 ], [ 4, '1 1', 1, 1 ], ], ], 'add currency fixtures'; my $bookseller_module = Test::MockModule->new('Koha::Acquisition::Bookseller'); my ( $basketno_0_0, $basketno_1_1 ); my ( $invoiceid_0_0, $invoiceid_1_1 ); my $today; for my $currency_format ( qw( US FR ) ) { t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format ); subtest 'Configuration 1: 0 0 (Vendor List prices do not include tax / Invoice prices do not include tax)' => sub { plan tests => 8; my $biblionumber_0_0 = 42; my $order_0_0 = { biblionumber => $biblionumber_0_0, quantity => 2, listprice => 82, unitprice => 73.80, quantityreceived => 2, basketno => $basketno_0_0, invoiceid => $invoiceid_0_0, rrp => 82.00, ecost => 73.80, tax_rate => 0.0500, discount => 10, datereceived => $today }; $order_0_0 = C4::Acquisition::populate_order_with_prices( { order => $order_0_0, booksellerid => 1, ordering => 1, } ); compare( { got => $order_0_0->{rrp_tax_included}, expected => 86.10, conf => '0 0', field => 'rrp_tax_included' } ); compare( { got => $order_0_0->{rrp_tax_excluded}, expected => 82.00, conf => '0 0', field => 'rrp_tax_excluded' } ); compare( { got => $order_0_0->{ecost_tax_included}, expected => 77.49, conf => '0 0', field => 'ecost_tax_included' } ); compare( { got => $order_0_0->{ecost_tax_excluded}, expected => 73.80, conf => '0 0', field => 'ecost_tax_excluded' } ); compare( { got => $order_0_0->{tax_value_on_ordering}, expected => 7.38, conf => '0 0', field => 'tax_value' } ); $order_0_0 = C4::Acquisition::populate_order_with_prices( { order => $order_0_0, booksellerid => 1, receiving => 1, } ); compare( { got => $order_0_0->{unitprice_tax_included}, expected => 77.49, conf => '0 0', field => 'unitprice_tax_included' } ); compare( { got => $order_0_0->{unitprice_tax_excluded}, expected => 73.80, conf => '0 0', field => 'unitprice_tax_excluded' } ); compare( { got => $order_0_0->{tax_value_on_receiving}, expected => 7.38, conf => '0 0', field => 'tax_value' } ); }; subtest 'Configuration 1: 1 1 (Vendor List prices do include tax / Invoice prices include tax)' => sub { plan tests => 11; my $biblionumber_1_1 = 43; my $order_1_1 = { biblionumber => $biblionumber_1_1, quantity => 2, listprice => 82, unitprice => 73.80, quantityreceived => 2, basketno => $basketno_1_1, invoiceid => $invoiceid_1_1, rrp => 82.00, ecost => 73.80, tax_rate => 0.0500, discount => 10, datereceived => $today }; $order_1_1 = C4::Acquisition::populate_order_with_prices( { order => $order_1_1, booksellerid => 4, ordering => 1, } ); compare( { got => $order_1_1->{rrp_tax_included}, expected => 82.00, conf => '1 1', field => 'rrp_tax_included' } ); compare( { got => $order_1_1->{rrp_tax_excluded}, expected => 78.10, conf => '1 1', field => 'rrp_tax_excluded' } ); compare( { got => $order_1_1->{ecost_tax_included}, expected => 73.80, conf => '1 1', field => 'ecost_tax_included' } ); compare( { got => $order_1_1->{ecost_tax_excluded}, expected => 70.29, conf => '1 1', field => 'ecost_tax_excluded' } ); compare( { got => $order_1_1->{tax_value_on_ordering}, expected => 7.03, conf => '1 1', field => 'tax_value' } ); $order_1_1 = C4::Acquisition::populate_order_with_prices( { order => $order_1_1, booksellerid => 4, receiving => 1, } ); compare( { got => $order_1_1->{unitprice_tax_included}, expected => 73.80, conf => '1 1', field => 'unitprice_tax_included' } ); compare( { got => $order_1_1->{unitprice_tax_excluded}, expected => 70.29, conf => '1 1', field => 'unitprice_tax_excluded' } ); compare( { got => $order_1_1->{tax_value_on_receiving}, expected => 7.03, conf => '1 1', field => 'tax_value' } ); # When unitprice is 0.00 C4::Acquisition->populate_order_with_prices() falls back to using ecost_tax_included and ecost_tax_excluded $order_1_1 = { biblionumber => $biblionumber_1_1, quantity => 1, listprice => 10, unitprice => '0.00', quantityreceived => 1, basketno => $basketno_1_1, invoiceid => $invoiceid_1_1, rrp => 10.00, ecost => 10.00, tax_rate => 0.1500, discount => 0, datereceived => $today }; $order_1_1 = C4::Acquisition::populate_order_with_prices( { order => $order_1_1, booksellerid => 4, ordering => 1, } ); compare( { got => $order_1_1->{ecost_tax_included}, expected => 10.00, conf => '1 1', field => 'ecost_tax_included' } ); compare( { got => $order_1_1->{ecost_tax_excluded}, expected => 8.70, conf => '1 1', field => 'ecost_tax_excluded' } ); compare( { got => $order_1_1->{tax_value_on_ordering}, expected => 1.30, conf => '1 1', field => 'tax_value' } ); }; subtest 'Configuration 1: 1 0 (Vendor List prices include tax / Invoice prices do not include tax)' => sub { plan tests => 9; my $biblionumber_1_0 = 44; my $order_1_0 = { biblionumber => $biblionumber_1_0, quantity => 2, listprice => 82, unitprice => 0, quantityreceived => 2, basketno => $basketno_1_1, invoiceid => $invoiceid_1_1, rrp => 82.00, ecost => 73.80, tax_rate => 0.0500, discount => 10, datereceived => $today }; $order_1_0 = C4::Acquisition::populate_order_with_prices( { order => $order_1_0, booksellerid => 3, ordering => 1, } ); compare( { got => $order_1_0->{rrp_tax_included}, expected => 82, conf => '1 0', field => 'rrp_tax_included' } ); compare( { got => $order_1_0->{rrp_tax_excluded}, expected => 78.10, conf => '1 0', field => 'rrp_tax_excluded' } ); compare( { got => $order_1_0->{ecost_tax_included}, expected => 73.80, conf => '1 0', field => 'ecost_tax_included' } ); compare( { got => $order_1_0->{ecost_tax_excluded}, expected => 70.29, conf => '1 0', field => 'ecost_tax_excluded' } ); # If we order with unitprice = 0, tax is calculated from the ecost # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost compare( { got => $order_1_0->{tax_value_on_ordering}, expected => 7.03, conf => '1 0', field => 'tax_value' } ); $order_1_0->{unitprice} = 70.29; $order_1_0 = C4::Acquisition::populate_order_with_prices( { order => $order_1_0, booksellerid => 3, ordering => 1, } ); # If a unitprice is provided at ordering, we calculate the tax from that compare( { got => $order_1_0->{tax_value_on_ordering}, expected => 6.69, conf => '1 0', field => 'tax_value' } ); $order_1_0 = C4::Acquisition::populate_order_with_prices( { order => $order_1_0, booksellerid => 3, receiving => 1, } ); compare( { got => $order_1_0->{unitprice_tax_included}, expected => 73.80, conf => '1 0', field => 'unitprice_tax_included' } ); compare( { got => $order_1_0->{unitprice_tax_excluded}, expected => 70.29, conf => '1 0', field => 'unitprice_tax_excluded' } ); compare( { got => $order_1_0->{tax_value_on_receiving}, expected => 7.03, conf => '1 0', field => 'tax_value' } ); }; subtest 'Configuration 1: 0 1 (Vendor List prices do not include tax / Invoice prices include tax)' => sub { plan tests => 9; my $biblionumber_0_1 = 45; my $order_0_1 = { biblionumber => $biblionumber_0_1, quantity => 2, listprice => 82, unitprice => 0, quantityreceived => 2, basketno => $basketno_1_1, invoiceid => $invoiceid_1_1, rrp => 82.00, ecost => 73.80, tax_rate => 0.0500, discount => 10, datereceived => $today }; $order_0_1 = C4::Acquisition::populate_order_with_prices( { order => $order_0_1, booksellerid => 2, ordering => 1, } ); compare( { got => $order_0_1->{rrp_tax_included}, expected => 86.10, conf => '0 1', field => 'rrp_tax_included' } ); compare( { got => $order_0_1->{rrp_tax_excluded}, expected => 82.00, conf => '0 1', field => 'rrp_tax_excluded' } ); compare( { got => $order_0_1->{ecost_tax_included}, expected => 77.49, conf => '0 1', field => 'ecost_tax_included' } ); compare( { got => $order_0_1->{ecost_tax_excluded}, expected => 73.80, conf => '0 1', field => 'ecost_tax_excluded' } ); # If we order with unitprice = 0, tax is calculated from the ecost # (note that in addorder.pl and addorderiso2709 the unitprice may/will be set to the ecost compare( { got => $order_0_1->{tax_value_on_ordering}, expected => 7.38, conf => '0 1', field => 'tax_value' } ); $order_0_1->{unitprice} = 77.490000; $order_0_1 = C4::Acquisition::populate_order_with_prices( { order => $order_0_1, booksellerid => 2, ordering => 1, } ); # If a unitprice is provided at ordering, we calculate the tax from that compare( { got => $order_0_1->{tax_value_on_ordering}, expected => 7.75, conf => '0 1', field => 'tax_value' } ); $order_0_1 = C4::Acquisition::populate_order_with_prices( { order => $order_0_1, booksellerid => 2, receiving => 1, } ); compare( { got => $order_0_1->{unitprice_tax_included}, expected => 77.49, conf => '0 1', field => 'unitprice_tax_included' } ); compare( { got => $order_0_1->{unitprice_tax_excluded}, expected => 73.80, conf => '0 1', field => 'unitprice_tax_excluded' } ); compare( { got => $order_0_1->{tax_value_on_receiving}, expected => 7.38, conf => '0 1', field => 'tax_value' } ); }; } sub compare { my ($params) = @_; is( Koha::Number::Price->new( $params->{got} )->format, Koha::Number::Price->new( $params->{expected} )->format, "configuration $params->{conf}: $params->{field} should be correctly calculated" ); } # format_for_editing for my $currency_format ( qw( US FR ) ) { t::lib::Mocks::mock_preference( 'CurrencyFormat', $currency_format ); is( Koha::Number::Price->new( 1234567 )->format_for_editing, '1234567.00', 'format_for_editing should return unformated integer part with 2 decimals' ); is( Koha::Number::Price->new( 1234567.89 )->format_for_editing, '1234567.89', 'format_for_editing should return unformated integer part with 2 decimals' ); }