use Modern::Perl;
-use Test::More tests => 11;
+use Test::More tests => 13;
use C4::Context;
use C4::Acquisition;
use C4::Biblio;
my $newordernumber = TransferOrder($ordernumber, $basketno2);
is(scalar GetOrders($basketno1), 0, "0 order in basket1");
is(scalar GetOrders($basketno2), 1, "1 order in basket2");
+
+# Determine if the transfer marked things cancelled properly.
+is($order->{orderstatus},'new','Order marked as new as expected');
+($order) = GetOrders($basketno1, { 'cancelled' => 1 });
+is($order->{orderstatus},'cancelled','Order marked as cancelled as expected');
+
($order) = GetOrders($basketno2);
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order");