|
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 |
- |
|
|