use Modern::Perl;
-use Test::More tests => 120;
+use Test::More tests => 122;
BEGIN {
use_ok('C4::Budgets')
budget_amount => $budget_2_total,
}
);
-my $budget_id11 = AddBudget(
+my $budget_id12 = AddBudget(
{
- budget_code => 'budget_11',
- budget_name => 'budget_11',
+ budget_code => 'budget_12',
+ budget_name => 'budget_12',
budget_period_id => $budget_period_id,
budget_parent_id => $budget_id1,
- budget_amount => $budget_11_total,
+ budget_amount => $budget_12_total,
}
);
-my $budget_id12 = AddBudget(
+my $budget_id11 = AddBudget(
{
- budget_code => 'budget_12',
- budget_name => 'budget_12',
+ budget_code => 'budget_11',
+ budget_name => 'budget_11',
budget_period_id => $budget_period_id,
budget_parent_id => $budget_id1,
- budget_amount => $budget_12_total,
+ budget_amount => $budget_11_total,
}
);
my $budget_id111 = AddBudget(
);
$budget_hierarchy = GetBudgetHierarchy($budget_period_id);
+is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' );
+is( $budget_hierarchy->[0]->{children}->[1]->{budget_name}, 'budget_12', 'GetBudgetHierarchy should return budgets ordered by name, second child is budget_12' );
+
+$budget_hierarchy = GetBudgetHierarchy($budget_period_id);
$budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned);
is( scalar(@$budget_hierarchy_cloned), scalar(@$budget_hierarchy),