| 
      
            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 => 147;  | 
              3 | 
              use Test::More tests => 154;  | 
            
        
          | 4 | 
          use JSON;  | 
          4 | 
          use JSON;  | 
        
        
          | 5 | 
           | 
          5 | 
           | 
        
        
          | 6 | 
          BEGIN { | 
          6 | 
          BEGIN { | 
        
  
    | 
      
            Lines 589-597
          is($budget_hierarchy->[0]->{budget_level},'0','budget_level of budget (budget_1)
      
      
        Link Here
      
     | 
  
        
          | 589 | 
          is($budget_hierarchy->[0]->{children}->[0]->{budget_level},'1','budget_level of first fund(budget_11)  should be 1'); | 
          589 | 
          is($budget_hierarchy->[0]->{children}->[0]->{budget_level},'1','budget_level of first fund(budget_11)  should be 1'); | 
        
        
          | 590 | 
          is($budget_hierarchy->[0]->{children}->[1]->{budget_level},'1','budget_level of second fund(budget_12)  should be 1'); | 
          590 | 
          is($budget_hierarchy->[0]->{children}->[1]->{budget_level},'1','budget_level of second fund(budget_12)  should be 1'); | 
        
        
          | 591 | 
          is($budget_hierarchy->[0]->{children}->[0]->{children}->[0]->{budget_level},'2','budget_level of  child fund budget_11 should be 2'); | 
          591 | 
          is($budget_hierarchy->[0]->{children}->[0]->{children}->[0]->{budget_level},'2','budget_level of  child fund budget_11 should be 2'); | 
        
            
               | 
               | 
              592 | 
               | 
            
            
              | 593 | 
              #Test skiptotals  | 
            
            
              | 594 | 
              $budget_hierarchy        = GetBudgetHierarchy($budget_period_id, undef, undef, 1);  | 
            
            
              | 595 | 
              is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy skiptotals should return budgets ordered by name, first child is budget_11' ); | 
            
            
              | 596 | 
              is( $budget_hierarchy->[0]->{children}->[1]->{budget_name}, 'budget_12', 'GetBudgetHierarchy skiptotals should return budgets ordered by name, second child is budget_12' ); | 
            
            
              | 597 | 
              is($budget_hierarchy->[0]->{budget_name},'budget_1','GetBudgetHierarchy skiptotals should return budgets ordered by name, first budget is budget_1'); | 
            
            
              | 598 | 
              is($budget_hierarchy->[0]->{budget_level},'0','skiptotals: budget_level of budget (budget_1)  should be 0'); | 
            
            
              | 599 | 
              is($budget_hierarchy->[0]->{children}->[0]->{budget_level},'1','skiptotals: budget_level of first fund(budget_11)  should be 1'); | 
            
            
              | 600 | 
              is($budget_hierarchy->[0]->{children}->[1]->{budget_level},'1','skiptotals: budget_level of second fund(budget_12)  should be 1'); | 
            
            
              | 601 | 
              is($budget_hierarchy->[0]->{children}->[0]->{children}->[0]->{budget_level},'2','skiptotals: budget_level of  child fund budget_11 should be 2'); | 
            
            
              | 602 | 
               | 
            
        
          | 592 | 
          $budget_hierarchy        = GetBudgetHierarchy($budget_period_id);  | 
          603 | 
          $budget_hierarchy        = GetBudgetHierarchy($budget_period_id);  | 
        
        
          | 593 | 
          $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned);  | 
          604 | 
          $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned);  | 
        
            
              | 594 | 
               | 
               | 
               | 
            
        
          | 595 | 
          is( scalar(@$budget_hierarchy_cloned), scalar(@$budget_hierarchy),  | 
          605 | 
          is( scalar(@$budget_hierarchy_cloned), scalar(@$budget_hierarchy),  | 
        
        
          | 596 | 
          'CloneBudgetPeriod (with inactive param) clones the same number of budgets (funds)'  | 
          606 | 
          'CloneBudgetPeriod (with inactive param) clones the same number of budgets (funds)'  | 
        
        
          | 597 | 
          );  | 
          607 | 
          );  | 
        
            
              | 598 | 
              -   | 
               | 
               |