2 use Test::More tests => 3;
9 use Koha::Acquisition::Order;
11 use t::lib::TestBuilder;
13 my $schema = Koha::Database->schema;
14 $schema->storage->txn_begin;
15 my $builder = t::lib::TestBuilder->new;
17 my $library = $builder->build({
21 # Creating some orders
22 my $booksellerid = C4::Bookseller::AddBookseller(
25 address1 => "bookseller's address",
31 my $basketno = NewBasket( $booksellerid, 1 );
33 my $budgetid = C4::Budgets::AddBudget(
35 budget_code => "budget_code_test_getordersbybib",
36 budget_name => "budget_name_test_getordersbybib",
39 my $budget = C4::Budgets::GetBudget($budgetid);
42 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
44 my $order = Koha::Acquisition::Order->new(
46 basketno => $basketno,
48 biblionumber => $biblionumber,
49 budget_id => $budgetid,
50 entrydate => '01-01-2014',
52 notes => "This is a note1",
55 quantityreceived => 0,
60 my $ordernumber = $order->{ordernumber};
62 my $invoiceid = AddInvoice(
63 invoicenumber => 'invoice',
64 booksellerid => $booksellerid,
68 my $borrowernumber = C4::Members::AddMember(
69 cardnumber => 'TESTCARD',
70 firstname => 'TESTFN',
73 branchcode => $library->{branchcode},
75 dateexpiry => '9999-12-31',
76 userid => 'TESTUSERID'
79 my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber );
81 C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
83 my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
84 is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
86 $order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
89 biblionumber => $biblionumber,
91 quantityreceived => 1,
94 invoiceid => $invoiceid,
96 budget_id => $budgetid,
100 my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
101 is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
103 $order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
106 biblionumber => $biblionumber,
108 quantityreceived => 1,
111 invoiceid => $invoiceid,
113 budget_id => $budgetid,
117 $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
118 is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');