5 use Test::More tests => 13;
12 use Koha::Acquisition::Order;
14 use t::lib::TestBuilder;
16 my $schema = Koha::Database->schema;
17 $schema->storage->txn_begin;
18 my $builder = t::lib::TestBuilder->new;
20 # Set up configuration data
22 my $branch = $builder->build( { source => 'Branch' } );
23 my $bookseller = $builder->build( { source => 'Aqbookseller' } );
24 my $budget = $builder->build( { source => 'Aqbudget' } );
25 my $staffmember = $builder->build( { source => 'Borrower' } );
27 # Create baskets and orders
29 my $basketno = NewBasket(
31 $staffmember->{borrowernumber},
32 'Standing order basket', # basketname
34 '', # basketbooksellernote
35 undef, # basketcontractnumber
36 $branch->{branchcode}, # deliveryplace
37 $branch->{branchcode}, # billingplace
41 my $nonstandingbasketno = NewBasket(
43 $staffmember->{borrowernumber},
44 'Non-standing order basket', # basketname
46 '', # basketbooksellernote
47 undef, # basketcontractnumber
48 $branch->{branchcode}, # deliveryplace
49 $branch->{branchcode}, # billingplace
53 my $basket = GetBasket($basketno);
55 is( $basket->{is_standing}, 1, 'basket correctly created as standing order basket' );
57 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
59 my $ordernumber = Koha::Acquisition::Order->new(
61 basketno => $basketno,
62 biblionumber => $biblionumber,
63 budget_id => $budget->{budget_id},
67 )->insert->{ordernumber};
69 isnt( $ordernumber, undef, 'standing order successfully created' );
71 my $search_orders = SearchOrders( {
72 basketno => $basketno,
78 scalar @$search_orders == 1 && $search_orders->[0]->{ordernumber} == $ordernumber,
79 'standing order counts as a pending/ordered order'
82 my $invoiceid = AddInvoice(
83 invoicenumber => 'invoice',
84 booksellerid => $bookseller->{id},
88 my ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
90 biblionumber => $biblionumber,
91 ordernumber => $ordernumber,
92 quantityreceived => 2,
95 invoiceid => $invoiceid,
100 isnt( $ordernumber, $new_ordernumber, "standing order split on receive" );
102 my $order = Koha::Acquisition::Order->fetch( { ordernumber => $ordernumber } );
103 my $neworder = Koha::Acquisition::Order->fetch( { ordernumber => $new_ordernumber } );
105 is( $order->{orderstatus}, 'partial', 'original order set to partially received' );
106 is( $order->{quantity}, 1, 'original order quantity unchanged' );
107 is( $order->{quantityreceived}, 0, 'original order has no received items' );
108 isnt( $order->{unitprice}, 12, 'original order does not get cost' );
109 is( $neworder->{orderstatus}, 'complete', 'new order set to complete' );
110 is( $neworder->{quantityreceived}, 2, 'new order has received items' );
111 cmp_ok( $neworder->{unitprice}, '==', 12, 'new order does get cost' );
113 $search_orders = SearchOrders( {
114 basketno => $basketno,
119 is( scalar @$search_orders, 1, 'only one pending order after receive' );
120 is( $search_orders->[0]->{ordernumber}, $ordernumber, 'original order is only pending order' );
122 $schema->storage->txn_rollback();