| Lines 6-11
          use C4::Circulation;
      
      
        Link Here | 
        
          | 6 | use C4::Members; | 6 | use C4::Members; | 
        
          | 7 | use C4::Items; | 7 | use C4::Items; | 
        
          | 8 | use Koha::DateUtils; | 8 | use Koha::DateUtils; | 
            
              |  |  | 9 | use Koha::Libraries; | 
        
          | 9 | use Koha::Patrons; | 10 | use Koha::Patrons; | 
        
          | 10 | use t::lib::TestBuilder; | 11 | use t::lib::TestBuilder; | 
        
          | 11 | use t::lib::Mocks qw(mock_preference); | 12 | use t::lib::Mocks qw(mock_preference); | 
  
    | Lines 15-20
          use Test::More tests => 8;
      
      
        Link Here | 
        
          | 15 | my $schema = Koha::Database->new->schema; | 16 | my $schema = Koha::Database->new->schema; | 
        
          | 16 | $schema->storage->txn_begin; | 17 | $schema->storage->txn_begin; | 
        
          | 17 |  | 18 |  | 
            
              |  |  | 19 | my $builder = t::lib::TestBuilder->new; | 
            
              | 20 | $builder->build({ source => 'Branch', value => { branchcode => 'CPL' } }) | 
            
              | 21 |     unless Koha::Libraries->find('CPL'); | 
            
              | 22 |  | 
        
          | 18 | C4::Context->_new_userenv(1234567); | 23 | C4::Context->_new_userenv(1234567); | 
        
          | 19 | C4::Context->set_userenv(91, 'CLIstaff', '23529001223661', 'CPL', | 24 | C4::Context->set_userenv(91, 'CLIstaff', '23529001223661', 'CPL', | 
        
          | 20 |                          'CPL', 'CPL', '', 'cc@cscnet.co.uk'); | 25 |                          'CPL', 'CPL', '', 'cc@cscnet.co.uk'); | 
  
    | Lines 25-31
          my $test_item_fic = '502326000402';
      
      
        Link Here | 
        
          | 25 | my $test_item_24 = '502326000404'; | 30 | my $test_item_24 = '502326000404'; | 
        
          | 26 | my $test_item_48 = '502326000403'; | 31 | my $test_item_48 = '502326000403'; | 
        
          | 27 |  | 32 |  | 
            
              | 28 | my $builder = t::lib::TestBuilder->new; |  |  | 
        
          | 29 | my $borrower1 = $builder->build_object({ class => 'Koha::Patrons', value => { cardnumber => $test_patron } }); | 33 | my $borrower1 = $builder->build_object({ class => 'Koha::Patrons', value => { cardnumber => $test_patron } }); | 
        
          | 30 | my $item1 = $builder->build_object({ | 34 | my $item1 = $builder->build_object({ | 
        
          | 31 |     class => 'Koha::Items', | 35 |     class => 'Koha::Items', | 
            
              | 32 | -  |  |  |