10 use Koha
::Acquisition
::Orders
;
15 my $schema = Koha
::Database
->new()->schema();
16 $schema->storage->txn_begin();
18 my $bookseller = Koha
::Acquisition
::Bookseller
->new(
21 address1
=> "bookseller's address",
27 my $basketno = C4
::Acquisition
::NewBasket
(
31 my $budgetid = C4
::Budgets
::AddBudget
(
33 budget_code
=> "budget_code_test",
34 budget_name
=> "budget_name_test",
38 my $budget = C4
::Budgets
::GetBudget
( $budgetid );
40 my ($biblionumber1, $biblioitemnumber1) = AddBiblio
(MARC
::Record
->new, '');
41 my ($biblionumber2, $biblioitemnumber2) = AddBiblio
(MARC
::Record
->new, '');
42 my $order1 = Koha
::Acquisition
::Order
->new(
44 basketno
=> $basketno,
46 biblionumber
=> $biblionumber1,
47 budget_id
=> $budget->{budget_id
},
50 my $ordernumber1 = $order1->ordernumber;
52 my $order2 = Koha
::Acquisition
::Order
->new(
54 basketno
=> $basketno,
56 biblionumber
=> $biblionumber2,
57 budget_id
=> $budget->{budget_id
},
60 my $ordernumber2 = $order2->ordernumber;
62 my $order3 = Koha
::Acquisition
::Order
->new(
64 basketno
=> $basketno,
66 biblionumber
=> $biblionumber2,
67 budget_id
=> $budget->{budget_id
},
70 my $ordernumber3 = $order3->ordernumber;
72 my @orders = GetOrdersByBiblionumber
();
73 is
(scalar(@orders), 0, 'GetOrdersByBiblionumber : no argument, return undef');
75 @orders = GetOrdersByBiblionumber
( $biblionumber1 );
76 is
(scalar(@orders), 1, '1 order on biblionumber 1');
78 @orders = GetOrdersByBiblionumber
( $biblionumber2 );
79 is
(scalar(@orders), 2, '2 orders on biblionumber 2');
82 $schema->storage->txn_rollback();