From f8a5d818c10e59c88b9a507643c6a0c41c20230f 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 2585802..78669cc 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 => 62; +use Test::More tests => 66; BEGIN { use_ok('C4::Acquisition'); @@ -177,6 +177,14 @@ is($neworder->{'quantity'}, 2, '2 items on new order'); 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}, $ordernumber2, 'Split: test parent_ordernumber' ); + +( $orders ) = GetHistory( ordernumber => $ordernumber2 ); +is( scalar( @$orders ), 1, 'GetHistory with a given ordernumber returns 1 order' ); +( $orders ) = GetHistory( ordernumber => $ordernumber2, 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