From 5f94cc5bd7417bf27086a2c2fb15e1c3af92a9e0 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Thu, 16 Apr 2015 08:54:30 -0400 Subject: [PATCH] Bug 13993 - Add tests to confirm 'new' and 'cancelled' This adds 2 tests to t/db_dependent/Acquisition/TransferOrder.t in order to confirm the order's status is properly marked. TEST PLAN --------- 1) Apply this patch only 2) prove -v t/db_dependent/Acquisition/TransferOrder.t -- should fail one test: not marked as 'cancelled'. 3) Apply other patch 4) prove -v t/db_dependent/Acquisition/TransferOrder.t -- should succeed. 5) Run test plan as per initial patch. 6) Run koha qa test tools --- t/db_dependent/Acquisition/TransferOrder.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Acquisition/TransferOrder.t b/t/db_dependent/Acquisition/TransferOrder.t index d868240..2a1d6f2 100644 --- a/t/db_dependent/Acquisition/TransferOrder.t +++ b/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"); -- 1.9.1