| Lines 19-25
          
      
      
        Link Here | 
        
          | 19 |  | 19 |  | 
        
          | 20 | use Modern::Perl; | 20 | use Modern::Perl; | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | use Test::More tests => 22; | 22 | use Test::More tests => 23; | 
        
          | 23 |  | 23 |  | 
        
          | 24 | use Test::MockModule; | 24 | use Test::MockModule; | 
        
          | 25 | use Test::Exception; | 25 | use Test::Exception; | 
  
    | Lines 34-39
          use Koha::Items;
      
      
        Link Here | 
        
          | 34 | use Koha::Database; | 34 | use Koha::Database; | 
        
          | 35 | use Koha::DateUtils qw( dt_from_string ); | 35 | use Koha::DateUtils qw( dt_from_string ); | 
        
          | 36 | use Koha::Statistics; | 36 | use Koha::Statistics; | 
            
              |  |  | 37 | use Koha::Recalls; | 
        
          | 37 |  | 38 |  | 
        
          | 38 | use t::lib::TestBuilder; | 39 | use t::lib::TestBuilder; | 
        
          | 39 | use t::lib::Mocks; | 40 | use t::lib::Mocks; | 
  
    | Lines 2301-2303
          subtest 'filter_by_in_transit' => sub {
      
      
        Link Here | 
        
          | 2301 |     $schema->storage->txn_rollback; | 2302 |     $schema->storage->txn_rollback; | 
        
          | 2302 |  | 2303 |  | 
        
          | 2303 | }; | 2304 | }; | 
          
            
              | 2304 | -  | 2305 |  | 
            
              |  |  | 2306 | subtest 'filter_by_has_holds' => sub { | 
            
              | 2307 |     plan tests => 3; | 
            
              | 2308 |  | 
            
              | 2309 |     $schema->storage->txn_begin; | 
            
              | 2310 |  | 
            
              | 2311 |     my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); | 
            
              | 2312 |     t::lib::Mocks::mock_userenv( { branchcode => $patron->branchcode } ); | 
            
              | 2313 |  | 
            
              | 2314 |     my $library_1 = $builder->build( { source => 'Branch' } ); | 
            
              | 2315 |     my $library_2 = $builder->build( { source => 'Branch' } ); | 
            
              | 2316 |  | 
            
              | 2317 |     my $biblio = $builder->build_sample_biblio(); | 
            
              | 2318 |     my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber, }); | 
            
              | 2319 |     my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber, }); | 
            
              | 2320 |  | 
            
              | 2321 |     is ( $biblio->items->filter_by_has_holds->count, 0, "Filtered to 0 holds" ); | 
            
              | 2322 |  | 
            
              | 2323 |     my $hold_1 = $builder->build( | 
            
              | 2324 |         { | 
            
              | 2325 |             source => 'Reserve', | 
            
              | 2326 |             value  => { | 
            
              | 2327 |                 itemnumber => $item_1->itemnumber, reservedate => dt_from_string, | 
            
              | 2328 |             } | 
            
              | 2329 |         } | 
            
              | 2330 |     ); | 
            
              | 2331 |  | 
            
              | 2332 |     is ( $biblio->items->filter_by_has_holds->count, 1, "Filtered to 1 hold" ); | 
            
              | 2333 |  | 
            
              | 2334 |     my $hold_2 = $builder->build( | 
            
              | 2335 |         { | 
            
              | 2336 |             source => 'Reserve', | 
            
              | 2337 |             value  => { | 
            
              | 2338 |                 itemnumber => $item_2->itemnumber, reservedate => dt_from_string, | 
            
              | 2339 |             } | 
            
              | 2340 |         } | 
            
              | 2341 |     ); | 
            
              | 2342 |  | 
            
              | 2343 |     is ( $biblio->items->filter_by_has_holds->count, 2, "Filtered to 2 holds" ); | 
            
              | 2344 |  | 
            
              | 2345 |     $schema->storage->txn_rollback; | 
            
              | 2346 |  | 
            
              | 2347 | }; |