|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 13; |
5 |
use Test::More tests => 14; |
| 6 |
use C4::Context; |
6 |
use C4::Context; |
| 7 |
use C4::Acquisition; |
7 |
use C4::Acquisition; |
| 8 |
use C4::Biblio; |
8 |
use C4::Biblio; |
|
Lines 131-134
$search_orders = SearchOrders( {
Link Here
|
| 131 |
is( scalar @$search_orders, 1, 'only one pending order after receive' ); |
131 |
is( scalar @$search_orders, 1, 'only one pending order after receive' ); |
| 132 |
is( $search_orders->[0]->{ordernumber}, $ordernumber, 'original order is only pending order' ); |
132 |
is( $search_orders->[0]->{ordernumber}, $ordernumber, 'original order is only pending order' ); |
| 133 |
|
133 |
|
|
|
134 |
CancelReceipt($new_ordernumber); |
| 135 |
$order = Koha::Acquisition::Orders->find( $ordernumber ); |
| 136 |
is( $order->quantity, 1, 'CancelReceipt should not have increased the quantity if order is standing'); |
| 137 |
|
| 138 |
|
| 134 |
$schema->storage->txn_rollback(); |
139 |
$schema->storage->txn_rollback(); |
| 135 |
- |
|
|