View | Details | Raw Unified | Return to bug 16123
Collapse All | Expand All

(-)a/t/db_dependent/Budgets.t (-3 / +6 lines)
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
- 

Return to bug 16123