| Lines 2-8
          
      
      
        Link Here | 
        
          | 2 |  | 2 |  | 
        
          | 3 | use Modern::Perl; | 3 | use Modern::Perl; | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use Test::More tests => 23; | 5 | use Test::More tests => 25; | 
        
          | 6 | use MARC::Record; | 6 | use MARC::Record; | 
        
          | 7 | use DateTime::Duration; | 7 | use DateTime::Duration; | 
        
          | 8 |  | 8 |  | 
  
    | Lines 317-322
          ModReserveAffect( $itemnumber,  $requesters{'CPL'} , 0); #confirm hold
      
      
        Link Here | 
        
          | 317 | is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); | 317 | is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); | 
        
          | 318 | # End of tests for bug 9788 | 318 | # End of tests for bug 9788 | 
        
          | 319 |  | 319 |  | 
            
              |  |  | 320 | # Tests for CalculatePriority (bug 8918) | 
            
              | 321 | my $p = C4::Reserves::CalculatePriority($bibnum2); | 
            
              | 322 | is($p, 4, 'CalculatePriority  should now return priority 4'); | 
            
              | 323 | AddReserve('CPL',  $requesters{'CPL'}, $bibnum2, | 
            
              | 324 |            $constraint, $bibitems,  $p, undef, $expdate, $notes, | 
            
              | 325 |            $title,      $checkitem, $found); | 
            
              | 326 | $p = C4::Reserves::CalculatePriority($bibnum2); | 
            
              | 327 | is($p, 5, 'CalculatePriority should now return priority 5'); | 
            
              | 328 | # End of tests for bug 8918 | 
            
              | 329 |  | 
        
          | 320 | $dbh->rollback; | 330 | $dbh->rollback; | 
        
          | 321 |  | 331 |  | 
        
          | 322 | sub count_hold_print_messages { | 332 | sub count_hold_print_messages { | 
            
              | 323 | -  |  |  |