From e974b554a5cc08413e66c43072e857f3d2b5458e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 Jan 2014 12:04:24 +0100 Subject: [PATCH] Bug 11549: Add regression test test plan: prove t/db_dependent/Acquisition/TransferOrder.t should fail before the patch and success after applying it. Signed-off-by: Sonia BOUIS Signed-off-by: Katrin Fischer Testing notes on last patch. Signed-off-by: Galen Charlton --- t/db_dependent/Acquisition/TransferOrder.t | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Acquisition/TransferOrder.t b/t/db_dependent/Acquisition/TransferOrder.t index 7e39b77c72..a608627425 100644 --- a/t/db_dependent/Acquisition/TransferOrder.t +++ b/t/db_dependent/Acquisition/TransferOrder.t @@ -2,13 +2,14 @@ use Modern::Perl; -use Test::More tests => 6; +use Test::More tests => 8; use C4::Context; use C4::Acquisition; use C4::Biblio; use C4::Items; use C4::Bookseller; use C4::Budgets; +use Koha::DateUtils; use MARC::Record; my $dbh = C4::Context->dbh; @@ -56,7 +57,7 @@ my $itemnumber = AddItem({}, $biblionumber); my ( undef, $ordernumber ) = C4::Acquisition::NewOrder( { basketno => $basketno1, - quantity => 24, + quantity => 2, biblionumber => $biblionumber, budget_id => $budget->{budget_id}, } @@ -77,4 +78,10 @@ is(scalar GetOrders($basketno2), 1, "1 order in basket2"); ($order) = GetOrders($basketno2); is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); +ModReceiveOrder( $biblionumber, $newordernumber, 2, undef, undef, undef, undef, undef, undef, dt_from_string ); +CancelReceipt( $newordernumber ); +$order = GetOrder( $newordernumber ); +is ( $order->{ordernumber}, $newordernumber, 'Regression test Bug 11549: After a transfer, receive and cancel the receive should be possible.' ); +is ( $order->{basketno}, $basketno2, 'Regression test Bug 11549: The order still exist in the basket where the transfer has been done.'); + $dbh->rollback; -- 2.39.2