Lines 1-6
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
use Modern::Perl; |
2 |
use Modern::Perl; |
3 |
use Test::More tests => 137; |
3 |
use Test::More tests => 142; |
4 |
|
4 |
|
5 |
BEGIN { |
5 |
BEGIN { |
6 |
use_ok('C4::Budgets') |
6 |
use_ok('C4::Budgets') |
Lines 434-440
$budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod(
Link Here
|
434 |
$budget_hierarchy = GetBudgetHierarchy($budget_period_id); |
434 |
$budget_hierarchy = GetBudgetHierarchy($budget_period_id); |
435 |
is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' ); |
435 |
is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' ); |
436 |
is( $budget_hierarchy->[0]->{children}->[1]->{budget_name}, 'budget_12', 'GetBudgetHierarchy should return budgets ordered by name, second child is budget_12' ); |
436 |
is( $budget_hierarchy->[0]->{children}->[1]->{budget_name}, 'budget_12', 'GetBudgetHierarchy should return budgets ordered by name, second child is budget_12' ); |
437 |
|
437 |
is($budget_hierarchy->[0]->{budget_name},'budget_1','GetBudgetHierarchy should return budgets ordered by name, first budget is budget_1'); |
|
|
438 |
is($budget_hierarchy->[0]->{budget_level},'0','budget_level of budget (budget_1) should be 0'); |
439 |
is($budget_hierarchy->[0]->{children}->[0]->{budget_level},'1','budget_level of first fund(budget_11) should be 1'); |
440 |
is($budget_hierarchy->[0]->{children}->[1]->{budget_level},'1','budget_level of second fund(budget_12) should be 1'); |
441 |
is($budget_hierarchy->[0]->{children}->[0]->{children}->[0]->{budget_level},'2','budget_level of child fund budget_11 should be 2'); |
438 |
$budget_hierarchy = GetBudgetHierarchy($budget_period_id); |
442 |
$budget_hierarchy = GetBudgetHierarchy($budget_period_id); |
439 |
$budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); |
443 |
$budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); |
440 |
|
444 |
|
441 |
- |
|
|