| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 | use C4::Context; | 19 | use C4::Context; | 
          
            
              | 20 | use C4::Circulation qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip ); | 20 | use C4::Circulation qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfersFromTo TransferSlip ); | 
        
          | 21 | use C4::Biblio qw( AddBiblio ); | 21 | use C4::Biblio qw( AddBiblio ); | 
        
          | 22 | use C4::Items qw( ModItemTransfer ); | 22 | use C4::Items qw( ModItemTransfer ); | 
        
          | 23 | use Koha::Database; | 23 | use Koha::Database; | 
  
    | Lines 27-44
          use Koha::Item::Transfers;
      
      
        Link Here | 
        
          | 27 |  | 27 |  | 
        
          | 28 | use t::lib::TestBuilder; | 28 | use t::lib::TestBuilder; | 
        
          | 29 |  | 29 |  | 
          
            
              | 30 | use Test::More tests => 22; | 30 | use Test::More tests => 19; | 
        
          | 31 | use Test::Deep; | 31 | use Test::Deep; | 
        
          | 32 |  | 32 |  | 
        
          | 33 | BEGIN { | 33 | BEGIN { | 
          
            
              | 34 |     use_ok('C4::Circulation', qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip )); | 34 |     use_ok('C4::Circulation', qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfersFromTo TransferSlip )); | 
        
          | 35 | } | 35 | } | 
        
          | 36 | can_ok( | 36 | can_ok( | 
        
          | 37 |     'C4::Circulation', | 37 |     'C4::Circulation', | 
        
          | 38 |     qw( | 38 |     qw( | 
        
          | 39 |       CreateBranchTransferLimit | 39 |       CreateBranchTransferLimit | 
        
          | 40 |       DeleteBranchTransferLimits | 40 |       DeleteBranchTransferLimits | 
            
              | 41 |       GetTransfers |  |  | 
        
          | 42 |       GetTransfersFromTo | 41 |       GetTransfersFromTo | 
        
          | 43 |       ) | 42 |       ) | 
        
          | 44 | ); | 43 | ); | 
  
    | Lines 168-187
          is(CreateBranchTransferLimit(undef,$branchcode_2),undef,
      
      
        Link Here | 
        
          | 168 | #branch_transfer_limits.toBranch and branch_transfer_limits.fromBranch aren't foreign keys | 167 | #branch_transfer_limits.toBranch and branch_transfer_limits.fromBranch aren't foreign keys | 
        
          | 169 | #is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added"); | 168 | #is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added"); | 
        
          | 170 |  | 169 |  | 
            
              | 171 | #Test GetTransfers |  |  | 
            
              | 172 | my @transfers = GetTransfers($item_id1); | 
            
              | 173 | cmp_deeply( | 
            
              | 174 |     \@transfers, | 
            
              | 175 |     [ re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), $branchcode_1, $branchcode_2, re('[0-9]*'), re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), 'Manual' ], | 
            
              | 176 |     "Transfers of the item1" | 
            
              | 177 | );    #NOTE: Only the first transfer is returned | 
            
              | 178 | @transfers = GetTransfers; | 
            
              | 179 | is_deeply( \@transfers, [], | 
            
              | 180 |     "GetTransfers without params returns an empty array" ); | 
            
              | 181 | @transfers = GetTransfers(-1); | 
            
              | 182 | is_deeply( \@transfers, [], | 
            
              | 183 |     "GetTransfers with a wrong item id returns an empty array" ); | 
            
              | 184 |  | 
        
          | 185 | #Test GetTransfersFromTo | 170 | #Test GetTransfersFromTo | 
        
          | 186 | my @transferfrom1to2 = GetTransfersFromTo( $branchcode_1, | 171 | my @transferfrom1to2 = GetTransfersFromTo( $branchcode_1, | 
        
          | 187 |     $branchcode_2 ); | 172 |     $branchcode_2 ); | 
            
              | 188 | -  |  |  |