@@ -, +, @@ --------- -- should fail one test: not marked as 'cancelled'. --- t/db_dependent/Acquisition/TransferOrder.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/t/db_dependent/Acquisition/TransferOrder.t +++ a/t/db_dependent/Acquisition/TransferOrder.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 11; +use Test::More tests => 13; use C4::Context; use C4::Acquisition; use C4::Biblio; @@ -76,6 +76,12 @@ is(scalar GetOrders($basketno2), 0, "0 order in basket2"); 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"); --