From 879b4f0d68bd6b9840b86ac816caf48c3da0634a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 9 Aug 2017 16:09:32 -0300 Subject: [PATCH] Bug 19024: Add tests --- t/db_dependent/Acquisition/close_reopen_basket.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Acquisition/close_reopen_basket.t b/t/db_dependent/Acquisition/close_reopen_basket.t index aba4824..750f1c5 100644 --- a/t/db_dependent/Acquisition/close_reopen_basket.t +++ b/t/db_dependent/Acquisition/close_reopen_basket.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 6; +use Test::More tests => 10; use C4::Acquisition; use C4::Biblio qw( AddBiblio DelBiblio ); use C4::Budgets; @@ -82,4 +82,13 @@ C4::Acquisition::ReopenBasket( $basketno ); is ( scalar( map { $_->{orderstatus} eq 'ordered' ? 1 : () } @orders ), 0, "No order are ordered, the basket is reopen" ); is ( scalar( map { $_->{orderstatus} eq 'new' ? 1 : () } @orders ), 2, "2 orders are new, the basket is reopen" ); +C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 ); +my ( $order ) = C4::Acquisition::GetOrders( $basketno, {cancelled => 1} ); +is( $order->{ordernumber}, $ordernumber1, 'The order returned by GetOrders should have been the right one' ); +is( $order->{orderstatus}, 'cancelled', 'DelOrder should have set status to cancelled' ); +C4::Acquisition::CloseBasket( $basketno ); +( $order ) = C4::Acquisition::GetOrders( $basketno, {cancelled => 1} ); +is( $order->{ordernumber}, $ordernumber1, 'The order returned by GetOrders should have been the right one' ); +is( $order->{orderstatus}, 'cancelled', 'CloseBasket should not reset the status to ordered for cancelled orders' ); + $schema->storage->txn_rollback(); -- 2.1.4