View | Details | Raw Unified | Return to bug 13993
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/TransferOrder.t (-2 / +7 lines)
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
- 

Return to bug 13993