Lines 1-7
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use Test::More tests => 18; |
4 |
use Test::More tests => 40; |
5 |
use Data::Dumper; |
5 |
use Data::Dumper; |
6 |
|
6 |
|
7 |
use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller ); |
7 |
use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller ); |
Lines 69-74
my $basket = $baskets->[0];
Link Here
|
69 |
is( $basket->{total_items}, 6, 'Start with 6 items' ); |
69 |
is( $basket->{total_items}, 6, 'Start with 6 items' ); |
70 |
is( $basket->{total_biblios}, 2, 'Start with 2 biblios' ); |
70 |
is( $basket->{total_biblios}, 2, 'Start with 2 biblios' ); |
71 |
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' ); |
71 |
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' ); |
|
|
72 |
is( $basket->{expected_items}, 6, 'Start with 6 items expected' ); |
72 |
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' ); |
73 |
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' ); |
73 |
|
74 |
|
74 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); |
75 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); |
Lines 78-92
$basket = $baskets->[0];
Link Here
|
78 |
is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' ); |
79 |
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_biblios}, 2, 'Order2 deleted, still 2 biblios' ); |
80 |
is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' ); |
81 |
is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' ); |
81 |
is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 2 biblios cancelled' ); |
82 |
is( $basket->{expected_items}, 2, 'Order2 deleted, now 2 items are expected' ); |
|
|
83 |
is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 1 biblios cancelled' ); |
82 |
|
84 |
|
83 |
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 ); |
85 |
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 ); |
84 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
86 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
85 |
is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' ); |
87 |
is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' ); |
86 |
$basket = $baskets->[0]; |
88 |
$basket = $baskets->[0]; |
87 |
is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' ); |
89 |
is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' ); |
88 |
is( $basket->{total_biblios}, 2, 'Both orders deleted, still 6 biblios' ); |
90 |
is( $basket->{total_biblios}, 2, 'Both orders deleted, still 2 biblios' ); |
89 |
is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' ); |
91 |
is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' ); |
|
|
92 |
is( $basket->{expected_items}, 0, 'Both orders delete, now 0 items are expected' ); |
90 |
is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' ); |
93 |
is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' ); |
91 |
|
94 |
|
92 |
C4::Acquisition::CloseBasket( $basketno ); |
95 |
C4::Acquisition::CloseBasket( $basketno ); |
Lines 95-99
is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' );
Link Here
|
95 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 ); |
98 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 ); |
96 |
is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter'); |
99 |
is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter'); |
97 |
|
100 |
|
|
|
101 |
C4::Acquisition::ReopenBasket( $basketno ); |
102 |
my $order3 = Koha::Acquisition::Order->new( |
103 |
{ |
104 |
basketno => $basketno, |
105 |
quantity => 4, |
106 |
biblionumber => $biblionumber3, |
107 |
budget_id => $budget->{budget_id}, |
108 |
} |
109 |
)->store; |
110 |
my $ordernumber3 = $order3->ordernumber; |
111 |
|
112 |
C4::Acquisition::CloseBasket( $basketno ); |
113 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
114 |
is( scalar(@$baskets), 1, 'Basket is closed and has items to receive' ); |
115 |
$basket = $baskets->[0]; |
116 |
is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' ); |
117 |
is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' ); |
118 |
is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' ); |
119 |
is( $basket->{expected_items}, 4, '2 orders delete, 1 order pending, 4 items are expected' ); |
120 |
is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' ); |
121 |
|
122 |
my $invoiceid1 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown"); |
123 |
my $invoice1 = C4::Acquisition::GetInvoice( $invoiceid1 ); |
124 |
my ( $date_received, $ordernumber4 ) = C4::Acquisition::ModReceiveOrder( |
125 |
{ |
126 |
biblionumber => $biblionumber3, |
127 |
order => $order3->unblessed, |
128 |
quantityreceived => 2, |
129 |
budget_id => $budget->{budget_id}, |
130 |
invoice => $invoice1, |
131 |
} |
132 |
); |
133 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
134 |
is( scalar(@$baskets), 1, 'Basket is closed and still has items to receive' ); |
135 |
$basket = $baskets->[0]; |
136 |
is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' ); |
137 |
is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' ); |
138 |
is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' ); |
139 |
is( $basket->{expected_items}, 2, '2 orders delete, 1 order pending, 2 items are expected' ); |
140 |
is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' ); |
141 |
|
142 |
my $invoiceid2 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown"); |
143 |
my $invoice2 = C4::Acquisition::GetInvoice( $invoiceid2 ); |
144 |
my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder( |
145 |
{ |
146 |
biblionumber => $biblionumber3, |
147 |
order => $order3->get_from_storage->unblessed, |
148 |
quantityreceived => 2, |
149 |
budget_id => $budget->{budget_id}, |
150 |
invoice => $invoice2, |
151 |
} |
152 |
); |
153 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 ); |
154 |
is( scalar(@$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter'); |
155 |
$basket = $baskets->[0]; |
156 |
is( $basket->{total_items}, 10, 'Basket is closed and has no items to receive, still 10 items total' ); |
157 |
is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' ); |
158 |
is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' ); |
159 |
is( $basket->{expected_items}, 0, 'Basket is closed and has no items to receive, 0 items are expected' ); |
160 |
is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' ); |
161 |
|
162 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
163 |
is( scalar(@$baskets), 0, 'Basket is closed and has no items to receive' ); |
98 |
|
164 |
|
99 |
$schema->storage->txn_rollback(); |
165 |
$schema->storage->txn_rollback(); |
100 |
- |
|
|