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

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

Return to bug 5144