4 use Test
::More tests
=> 43;
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->{expected_items
}, 6, 'Start with 6 items expected' );
73 is
( $basket->{total_biblios_cancelled
}, 0, 'Start with 0 biblio cancelled' );
75 $order1->uncertainprice(1)->store;
76 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
77 $basket = $baskets->[0];
78 is
( $basket->{uncertainprices
}, 1, "Uncertain prcies returns number of uncertain items");
79 $order2->uncertainprice(1)->store;
80 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
81 $basket = $baskets->[0];
82 is
( $basket->{uncertainprices
}, 2, "Uncertain prcies returns number of uncertain items");
83 $order1->uncertainprice(0)->store;
84 $order2->uncertainprice(0)->store;
85 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
86 $basket = $baskets->[0];
87 is
( $basket->{uncertainprices
}, 0, "Uncertain prcies returns number of uncertain items");
89 C4
::Acquisition
::DelOrder
( $biblionumber2, $ordernumber2 );
90 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
91 is
( scalar(@
$baskets), 1, 'Order2 deleted, still 1 basket' );
92 $basket = $baskets->[0];
93 is
( $basket->{total_items
}, 6, 'Order2 deleted, still 6 items' );
94 is
( $basket->{total_biblios
}, 2, 'Order2 deleted, still 2 biblios' );
95 is
( $basket->{total_items_cancelled
}, 4, 'Order2 deleted, 4 items cancelled' );
96 is
( $basket->{expected_items
}, 2, 'Order2 deleted, now 2 items are expected' );
97 is
( $basket->{total_biblios_cancelled
}, 1, 'Order2 deleted, 1 biblios cancelled' );
99 C4
::Acquisition
::DelOrder
( $biblionumber1, $ordernumber1 );
100 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
101 is
( scalar(@
$baskets), 1, 'Both orders deleted, still 1 basket' );
102 $basket = $baskets->[0];
103 is
( $basket->{total_items
}, 6, 'Both orders deleted, still 6 items' );
104 is
( $basket->{total_biblios
}, 2, 'Both orders deleted, still 2 biblios' );
105 is
( $basket->{total_items_cancelled
}, 6, 'Both orders deleted, 6 items cancelled' );
106 is
( $basket->{expected_items
}, 0, 'Both orders delete, now 0 items are expected' );
107 is
( $basket->{total_biblios_cancelled
}, 2, 'Both orders deleted, 2 biblios cancelled' );
109 C4
::Acquisition
::CloseBasket
( $basketno );
110 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
111 is
( scalar(@
$baskets), 0, 'Basket is closed, 0 basket opened' );
112 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid, 1 );
113 is
( scalar(@
$baskets), 1, 'Basket is closed, test allbasket parameter');
115 C4
::Acquisition
::ReopenBasket
( $basketno );
116 my $order3 = Koha
::Acquisition
::Order
->new(
118 basketno
=> $basketno,
120 biblionumber
=> $biblionumber3,
121 budget_id
=> $budget->{budget_id
},
124 my $ordernumber3 = $order3->ordernumber;
126 C4
::Acquisition
::CloseBasket
( $basketno );
127 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
128 is
( scalar(@
$baskets), 1, 'Basket is closed and has items to receive' );
129 $basket = $baskets->[0];
130 is
( $basket->{total_items
}, 10, '2 orders deleted, 1 order pending, 10 items total' );
131 is
( $basket->{total_biblios
}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
132 is
( $basket->{total_items_cancelled
}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
133 is
( $basket->{expected_items
}, 4, '2 orders delete, 1 order pending, 4 items are expected' );
134 is
( $basket->{total_biblios_cancelled
}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
136 my $invoiceid1 = C4
::Acquisition
::AddInvoice
(invoicenumber
=> 'invoice1', booksellerid
=> $supplierid, unknown
=> "unknown");
137 my $invoice1 = C4
::Acquisition
::GetInvoice
( $invoiceid1 );
138 my ( $date_received, $ordernumber4 ) = C4
::Acquisition
::ModReceiveOrder
(
140 biblionumber
=> $biblionumber3,
141 order
=> $order3->unblessed,
142 quantityreceived
=> 2,
143 budget_id
=> $budget->{budget_id
},
144 invoice
=> $invoice1,
147 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
148 is
( scalar(@
$baskets), 1, 'Basket is closed and still has items to receive' );
149 $basket = $baskets->[0];
150 is
( $basket->{total_items
}, 10, '2 orders deleted, 1 order pending, 10 items total' );
151 is
( $basket->{total_biblios
}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
152 is
( $basket->{total_items_cancelled
}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
153 is
( $basket->{expected_items
}, 2, '2 orders delete, 1 order pending, 2 items are expected' );
154 is
( $basket->{total_biblios_cancelled
}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
156 my $invoiceid2 = C4
::Acquisition
::AddInvoice
(invoicenumber
=> 'invoice1', booksellerid
=> $supplierid, unknown
=> "unknown");
157 my $invoice2 = C4
::Acquisition
::GetInvoice
( $invoiceid2 );
158 my ( $date_received2, $ordernumber5 ) = C4
::Acquisition
::ModReceiveOrder
(
160 biblionumber
=> $biblionumber3,
161 order
=> $order3->get_from_storage->unblessed,
162 quantityreceived
=> 2,
163 budget_id
=> $budget->{budget_id
},
164 invoice
=> $invoice2,
167 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid, 1 );
168 is
( scalar(@
$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter');
169 $basket = $baskets->[0];
170 is
( $basket->{total_items
}, 10, 'Basket is closed and has no items to receive, still 10 items total' );
171 is
( $basket->{total_biblios
}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' );
172 is
( $basket->{total_items_cancelled
}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' );
173 is
( $basket->{expected_items
}, 0, 'Basket is closed and has no items to receive, 0 items are expected' );
174 is
( $basket->{total_biblios_cancelled
}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' );
176 $baskets = C4
::Acquisition
::GetBasketsInfosByBookseller
( $supplierid );
177 is
( scalar(@
$baskets), 0, 'Basket is closed and has no items to receive' );
179 $schema->storage->txn_rollback();