From 2a6de346d24f14c50fa9b71c61bd4d1b82120058 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 14 Jan 2014 14:00:16 +0100 Subject: [PATCH] Bug 11551: Add unit tests for GetHistory prove t/db_dependent/Acquisition.t should return green. --- t/db_dependent/Acquisition.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t index f2ee820..38f79d6 100755 --- a/t/db_dependent/Acquisition.t +++ b/t/db_dependent/Acquisition.t @@ -8,7 +8,7 @@ use POSIX qw(strftime); use C4::Bookseller qw( GetBookSellerFromId ); -use Test::More tests => 68; +use Test::More tests => 72; BEGIN { use_ok('C4::Acquisition'); @@ -807,6 +807,14 @@ is( $neworder->{'quantityreceived'}, 2, 'Splitting up order received items on new order' ); is( $neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged' ); +is( $neworder->{ordernumber}, $new_ordernumber, 'Split: test ordernumber' ); +is( $neworder->{parent_ordernumber}, $ordernumbers[1], 'Split: test parent_ordernumber' ); + +my ( $orders ) = GetHistory( ordernumber => $ordernumbers[1] ); +is( scalar( @$orders ), 1, 'GetHistory with a given ordernumber returns 1 order' ); +( $orders ) = GetHistory( ordernumber => $ordernumbers[1], search_children_too => 1 ); +is( scalar( @$orders ), 2, 'GetHistory with a given ordernumber and search_children_too set returns 2 orders' ); + my $budgetid2 = C4::Budgets::AddBudget( { budget_code => "budget_code_test_modrecv", -- 1.7.10.4