|
Lines 19-25
use Modern::Perl;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 65; |
22 |
use Test::More tests => 67; |
| 23 |
use Koha::Database; |
23 |
use Koha::Database; |
| 24 |
|
24 |
|
| 25 |
BEGIN { |
25 |
BEGIN { |
|
Lines 28-33
BEGIN {
Link Here
|
| 28 |
use_ok('C4::Budgets'); |
28 |
use_ok('C4::Budgets'); |
| 29 |
use_ok('Koha::Acquisition::Orders'); |
29 |
use_ok('Koha::Acquisition::Orders'); |
| 30 |
use_ok('Koha::Acquisition::Booksellers'); |
30 |
use_ok('Koha::Acquisition::Booksellers'); |
|
|
31 |
use_ok('t::lib::TestBuilder'); |
| 31 |
} |
32 |
} |
| 32 |
|
33 |
|
| 33 |
# Sub used for testing C4::Acquisition subs returning order(s): |
34 |
# Sub used for testing C4::Acquisition subs returning order(s): |
|
Lines 541-544
ok($active_count >= 1 , "GetBudgetsReport(1) OK");
Link Here
|
| 541 |
is($all_count, scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions."); |
542 |
is($all_count, scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions."); |
| 542 |
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions."); |
543 |
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions."); |
| 543 |
|
544 |
|
|
|
545 |
subtest 'ModReceiveOrder replacementprice tests' => sub { |
| 546 |
plan tests => 2; |
| 547 |
#Let's build an order, we need a couple things though |
| 548 |
my $builder = t::lib::TestBuilder->new; |
| 549 |
my $order_biblio = $builder->build({ source => 'Biblio' }); |
| 550 |
my $order_basket = $builder->build({ source => 'Aqbasket', value => { is_standing => 0 } }); |
| 551 |
my $order_invoice = $builder->build({ source => 'Aqinvoice'}); |
| 552 |
my $order_currency = $builder->build({ source => 'Currency', value => { active => 1, archived => 0, symbol => 'F', rate => 2, isocode => undef, currency => 'FOO' } }); |
| 553 |
my $order_vendor = $builder->build({ source => 'Aqbookseller',value => { listincgst => 0, listprice => $order_currency->{currency}, invoiceprice => $order_currency->{currency} } }); |
| 554 |
my $orderinfo ={ |
| 555 |
basketno => $order_basket->{basketno}, |
| 556 |
booksellerid => $order_vendor->{id}, |
| 557 |
rrp => 19.99, |
| 558 |
replacementprice => undef, |
| 559 |
quantity => 1, |
| 560 |
quantityreceived => 0, |
| 561 |
datereceived => undef, |
| 562 |
datecancellationprinted => undef, |
| 563 |
}; |
| 564 |
my $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo }); |
| 565 |
(undef, my $received_ordernumber) = ModReceiveOrder({ |
| 566 |
biblionumber => $order_biblio->{biblionumber}, |
| 567 |
order => $receive_order, |
| 568 |
invoice => $order_invoice, |
| 569 |
quantityreceived => $receive_order->{quantity}, |
| 570 |
budget_id => $order->{budget_id}, |
| 571 |
}); |
| 572 |
my $received_order = GetOrder($received_ordernumber); |
| 573 |
is ($received_order->{replacementprice},undef,"No price set if none passed in"); |
| 574 |
$orderinfo->{replacementprice} = 16.12; |
| 575 |
$receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo }); |
| 576 |
(undef, $received_ordernumber) = ModReceiveOrder({ |
| 577 |
biblionumber => $order_biblio->{biblionumber}, |
| 578 |
order => $receive_order, |
| 579 |
invoice => $order_invoice, |
| 580 |
quantityreceived => $receive_order->{quantity}, |
| 581 |
budget_id => $order->{budget_id}, |
| 582 |
}); |
| 583 |
$received_order = GetOrder($received_ordernumber); |
| 584 |
is ($received_order->{replacementprice},'16.120000',"Replacement price set if none passed in"); |
| 585 |
}; |
| 586 |
|
| 544 |
$schema->storage->txn_rollback(); |
587 |
$schema->storage->txn_rollback(); |
| 545 |
- |
|
|