From 1e7d5fff71cb399d18d80d826be57adaed527b87 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 2 Dec 2015 12:26:38 +0000 Subject: [PATCH] Bug 15004: Ensure that the reset_all_budgets behavior is kept Signed-off-by: Jonathan Druart Signed-off-by: Brendan A Gallagher --- t/db_dependent/Budgets.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t index 91a255f66a..0f59b8bb84 100755 --- a/t/db_dependent/Budgets.t +++ b/t/db_dependent/Budgets.t @@ -1,5 +1,5 @@ use Modern::Perl; -use Test::More tests => 129; +use Test::More tests => 130; BEGIN { use_ok('C4::Budgets') @@ -490,6 +490,19 @@ cmp_ok($budget_hierarchy_cloned->[3]->{budget_amount}, '==', 115, "CloneBudgetPe cmp_ok($budget_hierarchy_cloned->[4]->{budget_amount}, '==', 2320, "CloneBudgetPeriod changed correctly funds amounts"); cmp_ok($budget_hierarchy_cloned->[5]->{budget_amount}, '==', 0, "CloneBudgetPeriod changed correctly funds amounts"); +$budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod( + { + budget_period_id => $budget_period_id, + budget_period_startdate => '2014-01-01', + budget_period_enddate => '2014-12-31', + amount_change_percentage => 16, + amount_change_round_increment => 5, + reset_all_budgets => 1, + } +); +$budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); +cmp_ok($budget_hierarchy_cloned->[0]->{budget_amount}, '==', 0, "CloneBudgetPeriod reset all fund amounts"); + # MoveOrders my $number_orders_moved = C4::Budgets::MoveOrders(); is( $number_orders_moved, undef, 'MoveOrders return undef if no arg passed' ); -- 2.39.2