From f62bc698e737b73c404e8ccc3df9a266b97fc5f6 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Thu, 16 Apr 2015 08:54:30 -0400 Subject: [PATCH] Bug 13993: (1) 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) Log into staff client 2) Acquisitions 3) Create a basket for two differing vendors. 4) Place an order in one of the baskets. 5) Transfer the order from one vendor's basket to the others. 6) Apply this patch (1) only 7) prove -v t/db_dependent/Acquisition/TransferOrder.t -- should fail one test: not marked as 'cancelled'. Signed-off-by: Indranil Das Gupta (L2C2 Technologies) Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi (cherry picked from commit b335b7299120f642a0f7d7654937521df8f75ba6) Signed-off-by: Chris Cormack --- 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 d86824021c..2a1d6f28ba 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"); -- 2.39.5