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 |
- |
|
|