10 use Koha::Acquisition::Orders;
15 my $schema = Koha::Database->new()->schema();
16 $schema->storage->txn_begin();
17 my $dbh = C4::Context->dbh;
18 $dbh->{RaiseError} = 1;
20 my $bookseller = Koha::Acquisition::Bookseller->new(
23 address1 => "bookseller's address",
29 my $basketno = C4::Acquisition::NewBasket(
33 my $budgetid = C4::Budgets::AddBudget(
35 budget_code => "budget_code_test",
36 budget_name => "budget_name_test",
40 my $budget = C4::Budgets::GetBudget( $budgetid );
42 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
43 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
44 my $order1 = Koha::Acquisition::Order->new(
46 basketno => $basketno,
48 biblionumber => $biblionumber1,
49 budget_id => $budget->{budget_id},
52 my $ordernumber1 = $order1->ordernumber;
54 my $order2 = Koha::Acquisition::Order->new(
56 basketno => $basketno,
58 biblionumber => $biblionumber2,
59 budget_id => $budget->{budget_id},
62 my $ordernumber2 = $order2->ordernumber;
64 my $order3 = Koha::Acquisition::Order->new(
66 basketno => $basketno,
68 biblionumber => $biblionumber2,
69 budget_id => $budget->{budget_id},
72 my $ordernumber3 = $order3->ordernumber;
74 my @orders = GetOrdersByBiblionumber();
75 is(scalar(@orders), 0, 'GetOrdersByBiblionumber : no argument, return undef');
77 @orders = GetOrdersByBiblionumber( $biblionumber1 );
78 is(scalar(@orders), 1, '1 order on biblionumber 1');
80 @orders = GetOrdersByBiblionumber( $biblionumber2 );
81 is(scalar(@orders), 2, '2 orders on biblionumber 2');
84 $schema->storage->txn_rollback();