2 use Test::More tests => 3;
8 use Koha::Acquisition::Booksellers;
9 use Koha::Acquisition::Orders;
12 use t::lib::TestBuilder;
14 my $schema = Koha::Database->schema;
15 $schema->storage->txn_begin;
16 my $builder = t::lib::TestBuilder->new;
18 my $library = $builder->build({
21 my $patron_category = $builder->build({ source => 'Category' });
22 my $currency = $builder->build({ source => 'Currency' });
24 # Creating some orders
25 my $bookseller = Koha::Acquisition::Bookseller->new(
28 address1 => "bookseller's address",
34 my $basketno = NewBasket( $bookseller->id, 1 );
36 my $budgetid = C4::Budgets::AddBudget(
38 budget_code => "budget_code_test",
39 budget_name => "budget_name_test",
42 my $budget = C4::Budgets::GetBudget($budgetid);
45 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
47 my $order = Koha::Acquisition::Order->new(
49 basketno => $basketno,
51 biblionumber => $biblionumber,
52 budget_id => $budgetid,
53 entrydate => '2014-01-01',
54 currency => $currency->{currency},
56 quantityreceived => 0,
61 my $ordernumber = $order->ordernumber;
63 my $invoiceid = AddInvoice(
64 invoicenumber => 'invoice',
65 booksellerid => $bookseller->id,
69 my $borrowernumber = Koha::Patron->new({
70 cardnumber => 'TESTCARD',
71 firstname => 'TESTFN',
73 categorycode => $patron_category->{categorycode},
74 branchcode => $library->{branchcode},
76 dateexpiry => '9999-12-31',
77 userid => 'TESTUSERID'
78 })->store->borrowernumber;
80 C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
82 my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
83 is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
85 $order = Koha::Acquisition::Orders->find( $ordernumber );
88 biblionumber => $biblionumber,
89 order => $order->unblessed,
90 quantityreceived => 1,
93 invoiceid => $invoiceid,
95 budget_id => $budgetid,
99 my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
100 is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
102 $order = Koha::Acquisition::Orders->find( $ordernumber );
105 biblionumber => $biblionumber,
106 order => $order->unblessed,
107 quantityreceived => 1,
110 invoiceid => $invoiceid,
112 budget_id => $budgetid,
116 $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
117 is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');