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