From e8e0af4c37ffd17bbd19c55229b0195cc19969e0 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 using GetHistory to search by order number prove t/db_dependent/Acquisition.t should return green. Signed-off-by: remy juliette Signed-off-by: Katrin Fischer Signed-off-by: Galen Charlton --- 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 0cfc0b1f99..2b6dda9139 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 => 72; +use Test::More tests => 76; BEGIN { use_ok('C4::Acquisition'); @@ -839,6 +839,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", -- 2.39.5