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 => 68; |
22 |
use Test::More tests => 70; |
23 |
use t::lib::Mocks; |
23 |
use t::lib::Mocks; |
24 |
use Koha::Database; |
24 |
use Koha::Database; |
25 |
|
25 |
|
Lines 31-36
BEGIN {
Link Here
|
31 |
use_ok('C4::Budgets'); |
31 |
use_ok('C4::Budgets'); |
32 |
use_ok('Koha::Acquisition::Orders'); |
32 |
use_ok('Koha::Acquisition::Orders'); |
33 |
use_ok('Koha::Acquisition::Booksellers'); |
33 |
use_ok('Koha::Acquisition::Booksellers'); |
|
|
34 |
use_ok('t::lib::TestBuilder'); |
34 |
} |
35 |
} |
35 |
|
36 |
|
36 |
# Sub used for testing C4::Acquisition subs returning order(s): |
37 |
# Sub used for testing C4::Acquisition subs returning order(s): |
Lines 665-668
sub create_isbn_field {
Link Here
|
665 |
return $field; |
666 |
return $field; |
666 |
} |
667 |
} |
667 |
|
668 |
|
|
|
669 |
subtest 'ModReceiveOrder replacementprice tests' => sub { |
670 |
plan tests => 2; |
671 |
#Let's build an order, we need a couple things though |
672 |
my $builder = t::lib::TestBuilder->new; |
673 |
my $order_biblio = $builder->build({ source => 'Biblio' }); |
674 |
my $order_basket = $builder->build({ source => 'Aqbasket', value => { is_standing => 0 } }); |
675 |
my $order_invoice = $builder->build({ source => 'Aqinvoice'}); |
676 |
my $order_currency = $builder->build({ source => 'Currency', value => { active => 1, archived => 0, symbol => 'F', rate => 2, isocode => undef, currency => 'FOO' } }); |
677 |
my $order_vendor = $builder->build({ source => 'Aqbookseller',value => { listincgst => 0, listprice => $order_currency->{currency}, invoiceprice => $order_currency->{currency} } }); |
678 |
my $orderinfo ={ |
679 |
basketno => $order_basket->{basketno}, |
680 |
booksellerid => $order_vendor->{id}, |
681 |
rrp => 19.99, |
682 |
replacementprice => undef, |
683 |
quantity => 1, |
684 |
quantityreceived => 0, |
685 |
datereceived => undef, |
686 |
datecancellationprinted => undef, |
687 |
}; |
688 |
my $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo }); |
689 |
(undef, my $received_ordernumber) = ModReceiveOrder({ |
690 |
biblionumber => $order_biblio->{biblionumber}, |
691 |
order => $receive_order, |
692 |
invoice => $order_invoice, |
693 |
quantityreceived => $receive_order->{quantity}, |
694 |
budget_id => $order->{budget_id}, |
695 |
}); |
696 |
my $received_order = GetOrder($received_ordernumber); |
697 |
is ($received_order->{replacementprice},undef,"No price set if none passed in"); |
698 |
$orderinfo->{replacementprice} = 16.12; |
699 |
$receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo }); |
700 |
(undef, $received_ordernumber) = ModReceiveOrder({ |
701 |
biblionumber => $order_biblio->{biblionumber}, |
702 |
order => $receive_order, |
703 |
invoice => $order_invoice, |
704 |
quantityreceived => $receive_order->{quantity}, |
705 |
budget_id => $order->{budget_id}, |
706 |
}); |
707 |
$received_order = GetOrder($received_ordernumber); |
708 |
is ($received_order->{replacementprice},'16.120000',"Replacement price set if none passed in"); |
709 |
}; |
710 |
|
668 |
$schema->storage->txn_rollback(); |
711 |
$schema->storage->txn_rollback(); |
669 |
- |
|
|