|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 11; |
5 |
use Test::More tests => 13; |
| 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 76-81
is(scalar GetOrders($basketno2), 0, "0 order in basket2");
Link Here
|
| 76 |
my $newordernumber = TransferOrder($ordernumber, $basketno2); |
76 |
my $newordernumber = TransferOrder($ordernumber, $basketno2); |
| 77 |
is(scalar GetOrders($basketno1), 0, "0 order in basket1"); |
77 |
is(scalar GetOrders($basketno1), 0, "0 order in basket1"); |
| 78 |
is(scalar GetOrders($basketno2), 1, "1 order in basket2"); |
78 |
is(scalar GetOrders($basketno2), 1, "1 order in basket2"); |
|
|
79 |
|
| 80 |
# Determine if the transfer marked things cancelled properly. |
| 81 |
is($order->{orderstatus},'new','Order marked as new as expected'); |
| 82 |
($order) = GetOrders($basketno1, { 'cancelled' => 1 }); |
| 83 |
is($order->{orderstatus},'cancelled','Order marked as cancelled as expected'); |
| 84 |
|
| 79 |
($order) = GetOrders($basketno2); |
85 |
($order) = GetOrders($basketno2); |
| 80 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
86 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
| 81 |
|
87 |
|
| 82 |
- |
|
|