View | Details | Raw Unified | Return to bug 5144
Collapse All | Expand All

(-)a/t/db_dependent/Reserves.t (-2 / +7 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 71;
20
use Test::More tests => 72;
21
21
22
use MARC::Record;
22
use MARC::Record;
23
use DateTime::Duration;
23
use DateTime::Duration;
Lines 443-448 $p = C4::Reserves::CalculatePriority($bibnum, $resdate); Link Here
443
is($p, 3, 'CalculatePriority should now return priority 3');
443
is($p, 3, 'CalculatePriority should now return priority 3');
444
# End of tests for bug 8918
444
# End of tests for bug 8918
445
445
446
# Test for bug 5144
447
my $reserve_id = AddReserve('CPL',  $requesters{'CPL3'}, $bibnum,
448
           $bibitems,  $p, output_pref($resdate), $expdate, $notes,
449
           $title,      $checkitem, $found);
450
is( $reserve_id, undef, 'Attempt to add a second reserve on a given record for the same patron fails.' );
451
446
# Tests for cancel reserves by users from OPAC.
452
# Tests for cancel reserves by users from OPAC.
447
$dbh->do('DELETE FROM reserves', undef, ($bibnum));
453
$dbh->do('DELETE FROM reserves', undef, ($bibnum));
448
AddReserve('CPL',  $requesters{'CPL'}, $item_bibnum,
454
AddReserve('CPL',  $requesters{'CPL'}, $item_bibnum,
449
- 

Return to bug 5144