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

(-)a/t/Budgets/CanUserModifyBudget.t (-1 / +2 lines)
Lines 1-7 Link Here
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
2 

          2
          

        

        

          3
          
use Modern::Perl;

          3
          
use Modern::Perl;

        

          
            

              4
              
use Test::More tests => 133;


              4
              
use Test::More tests => 134;

            

        

          5
          

          5
          

        

        

          6
          
use C4::Budgets;

          6
          
use C4::Budgets;

        

        

          7
          

          7
          

        

  

    
      
            Lines 135-140
          my $budget16 = {
      
      
        Link Here
      
    
  

        

          135
          

          135
          

        

        

          136
          
my $userenv = {};

          136
          
my $userenv = {};

        

        

          137
          

          137
          

        

            

              
              
              138
              
ok (!CanUserModifyBudget(0, undef, {}));

            

        

          138
          

          139
          

        

        

          139
          
ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1}));

          140
          
ok (CanUserModifyBudget($borrower1, $budget1, {superlibrarian => 1}));

        

        

          140
          
ok (CanUserModifyBudget($borrower1, $budget1, {

          141
          
ok (CanUserModifyBudget($borrower1, $budget1, {

        



(-)a/t/Budgets/CanUserUseBudget.t
      (-2 / +3 lines)




  

    
      
            Lines 1-7
          
      
      
        Link Here
      
    
  

        

          1
          
#!/usr/bin/perl

          1
          
#!/usr/bin/perl

        

        

          2
          

          2
          

        

        

          3
          
use Modern::Perl;

          3
          
use Modern::Perl;

        

          
            

              4
              
use Test::More tests => 69;


              4
              
use Test::More tests => 70;

            

        

          5
          

          5
          

        

        

          6
          
use C4::Budgets;

          6
          
use C4::Budgets;

        

        

          7
          

          7
          

        

  

    
      
            Lines 136-141
          my $budget16 = {
      
      
        Link Here
      
    
  

        

          136
          

          136
          

        

        

          137
          
my $userenv = {};

          137
          
my $userenv = {};

        

        

          138
          

          138
          

        

            

              
              
              139
              
ok (!CanUserUseBudget(0, undef, {}));

            

            

              140
              

            

        

          139
          
ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1}));

          141
          
ok (CanUserUseBudget($borrower1, $budget1, {superlibrarian => 1}));

        

        

          140
          
ok (CanUserUseBudget($borrower1, $budget1, {

          142
          
ok (CanUserUseBudget($borrower1, $budget1, {

        

        

          141
          
    acquisition => {

          143
          
    acquisition => {

        

            

              142
              
- 

              
              
            






  

  Return to bug 18942