|
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 recieve' ); |
| 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 recieve' ); |
| 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 $order4 = Koha::Acquisition::Orders->find($ordernumber4); |
| 145 |
my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder( |
| 146 |
{ |
| 147 |
biblionumber => $biblionumber3, |
| 148 |
order => $order4->unblessed, |
| 149 |
quantityreceived => 2, |
| 150 |
budget_id => $budget->{budget_id}, |
| 151 |
invoice => $invoice2, |
| 152 |
} |
| 153 |
); |
| 154 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 ); |
| 155 |
is( scalar(@$baskets), 1, 'Basket is closed and has no items to recieve, test allbasket parameter'); |
| 156 |
$basket = $baskets->[0]; |
| 157 |
is( $basket->{total_items}, 10, 'Basket is closed and has no items to recieve, still 10 items total' ); |
| 158 |
is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to recieve, still 3 biblios total' ); |
| 159 |
is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to recieve, still 6 items cancelled' ); |
| 160 |
is( $basket->{expected_items}, 0, 'Basket is closed and has no items to recieve, 0 items are expected' ); |
| 161 |
is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to recieve, still 2 biblios cancelled' ); |
| 162 |
|
| 163 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
| 164 |
is( scalar(@$baskets), 0, 'Basket is closed and has no items to recieve' ); |
| 98 |
|
165 |
|
| 99 |
$schema->storage->txn_rollback(); |
166 |
$schema->storage->txn_rollback(); |
| 100 |
- |
|
|