13 my $dbh = C4::Context->dbh;
14 $dbh->{AutoCommit} = 0;
15 $dbh->{RaiseError} = 1;
17 my $booksellerid = C4::Bookseller::AddBookseller(
20 address1 => "bookseller's address",
26 my $basketno = C4::Acquisition::NewBasket(
30 my $budgetid = C4::Budgets::AddBudget(
32 budget_code => "budget_code_test_getordersbybib",
33 budget_name => "budget_name_test_getordersbybib",
37 my $budget = C4::Budgets::GetBudget( $budgetid );
39 my ($ordernumber1, $ordernumber2, $ordernumber3);
40 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
41 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
42 $ordernumber1 = C4::Acquisition::NewOrder(
44 basketno => $basketno,
46 biblionumber => $biblionumber1,
47 budget_id => $budget->{budget_id},
51 $ordernumber2 = C4::Acquisition::NewOrder(
53 basketno => $basketno,
55 biblionumber => $biblionumber2,
56 budget_id => $budget->{budget_id},
60 $ordernumber3 = C4::Acquisition::NewOrder(
62 basketno => $basketno,
64 biblionumber => $biblionumber2,
65 budget_id => $budget->{budget_id},
69 my @orders = GetOrdersByBiblionumber();
70 is(scalar(@orders), 0, 'GetOrdersByBiblionumber : no argument, return undef');
72 @orders = GetOrdersByBiblionumber( $biblionumber1 );
73 is(scalar(@orders), 1, '1 order on biblionumber 1');
75 @orders = GetOrdersByBiblionumber( $biblionumber2 );
76 is(scalar(@orders), 2, '2 orders on biblionumber 2');