4 use Test::More tests => 18;
7 use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
8 use C4::Biblio qw( AddBiblio );
9 use C4::Budgets qw( AddBudget );
12 use Koha::Acquisition::Orders;
14 my $schema = Koha::Database->new()->schema();
15 $schema->storage->txn_begin();
17 my $dbh = C4::Context->dbh;
18 $dbh->{RaiseError} = 1;
20 my $supplier = Koha::Acquisition::Bookseller->new(
23 address1 => 'bookseller\'s address',
29 my $supplierid = $supplier->id;
32 ok($basketno = NewBasket($supplierid, 1), 'NewBasket( $supplierid , 1 ) returns $basketno');
34 my $budgetid = C4::Budgets::AddBudget(
36 budget_code => 'budget_code_test_1',
37 budget_name => 'budget_name_test_1',
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 ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
46 my $order1 = Koha::Acquisition::Order->new(
48 basketno => $basketno,
50 biblionumber => $biblionumber1,
51 budget_id => $budget->{budget_id},
54 my $ordernumber1 = $order1->ordernumber;
56 my $order2 = Koha::Acquisition::Order->new(
58 basketno => $basketno,
60 biblionumber => $biblionumber2,
61 budget_id => $budget->{budget_id},
64 my $ordernumber2 = $order2->ordernumber;
66 my $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
67 is( scalar(@$baskets), 1, 'Start: 1 basket' );
68 my $basket = $baskets->[0];
69 is( $basket->{total_items}, 6, 'Start with 6 items' );
70 is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
71 is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
72 is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
74 C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
75 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
76 is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' );
77 $basket = $baskets->[0];
78 is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
79 is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
80 is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
81 is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 2 biblios cancelled' );
83 C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
84 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
85 is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
86 $basket = $baskets->[0];
87 is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
88 is( $basket->{total_biblios}, 2, 'Both orders deleted, still 6 biblios' );
89 is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
90 is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
92 C4::Acquisition::CloseBasket( $basketno );
93 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
94 is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' );
95 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
96 is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
99 $schema->storage->txn_rollback();