| Lines 21-27
          use Test::More tests => 6;
      
      
        Link Here | 
        
          | 21 | use t::lib::TestBuilder; | 21 | use t::lib::TestBuilder; | 
        
          | 22 | use t::lib::Mocks; | 22 | use t::lib::Mocks; | 
        
          | 23 |  | 23 |  | 
          
            
              | 24 | use C4::Circulation qw( transferbook AddIssue GetTransfers ); | 24 | use C4::Circulation qw( transferbook AddIssue ); | 
        
          | 25 | use C4::Reserves qw( AddReserve ); | 25 | use C4::Reserves qw( AddReserve ); | 
        
          | 26 | use Koha::DateUtils qw( dt_from_string ); | 26 | use Koha::DateUtils qw( dt_from_string ); | 
        
          | 27 | use Koha::Item::Transfers; | 27 | use Koha::Item::Transfers; | 
  
    | Lines 287-303
          subtest 'transferbook test from branch' => sub {
      
      
        Link Here | 
        
          | 287 |         barcode   => $item->barcode, | 287 |         barcode   => $item->barcode, | 
        
          | 288 |         trigger => "Manual" | 288 |         trigger => "Manual" | 
        
          | 289 |     }); | 289 |     }); | 
          
            
              | 290 |     my ($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); | 290 |     my $transfer = $item->get_transfer; | 
            
              | 291 |     is( $from_branch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); | 291 |     is( $transfer->frombranch, $library->branchcode, 'The transfer is initiated from the specified branch, not the items home or holdingbranch'); | 
            
              | 292 |     is( $to_branch, $item->homebranch, 'The transfer is initiated to the specified branch'); | 292 |     is( $transfer->tobranch, $item->homebranch, 'The transfer is initiated to the specified branch'); | 
        
          | 293 |     C4::Circulation::transferbook({ | 293 |     C4::Circulation::transferbook({ | 
        
          | 294 |         from_branch => $item->homebranch, | 294 |         from_branch => $item->homebranch, | 
        
          | 295 |         to_branch => $library->branchcode, | 295 |         to_branch => $library->branchcode, | 
        
          | 296 |         barcode   => $item->barcode, | 296 |         barcode   => $item->barcode, | 
        
          | 297 |         trigger => "Manual" | 297 |         trigger => "Manual" | 
        
          | 298 |     }); | 298 |     }); | 
          
            
              | 299 |     ($datesent,$from_branch,$to_branch) = GetTransfers($item->itemnumber); | 299 |     $transfer = $item->get_transfer; | 
            
              | 300 |     is( $from_branch, $item->homebranch, 'The transfer is initiated from the specified branch'); | 300 |     is( $transfer->frombranch, $item->homebranch, 'The transfer is initiated from the specified branch'); | 
            
              | 301 |     is( $to_branch, $library->branchcode, 'The transfer is initiated to the specified branch'); | 301 |     is( $transfer->tobranch, $library->branchcode, 'The transfer is initiated to the specified branch'); | 
        
          | 302 |  | 302 |  | 
        
          | 303 | }; | 303 | }; | 
            
              | 304 | -  |  |  |