From 5b8279cc58384a4862f7aa33b1024a4f19f9f05a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 6 Oct 2015 13:54:22 +0100 Subject: [PATCH] Bug 5144: Add test on carp message Signed-off-by: Jonathan Druart --- t/db_dependent/Reserves.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index 4e6fd6f..7301757 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -17,7 +17,8 @@ use Modern::Perl; -use Test::More tests => 72; +use Test::More tests => 73; +use Test::Warn; use MARC::Record; use DateTime::Duration; @@ -444,9 +445,11 @@ is($p, 3, 'CalculatePriority should now return priority 3'); # End of tests for bug 8918 # Test for bug 5144 -$reserve_id = AddReserve('CPL', $requesters{'CPL3'}, $bibnum, +warning_is { + $reserve_id = AddReserve('CPL', $requesters{'CPL3'}, $bibnum, $bibitems, $p, output_pref($resdate), $expdate, $notes, - $title, $checkitem, $found); + $title, $checkitem, $found) +} "AddReserve: borrower $requesters{CPL3} already has a hold for biblionumber $bibnum"; is( $reserve_id, undef, 'Attempt to add a second reserve on a given record for the same patron fails.' ); # Tests for cancel reserves by users from OPAC. -- 2.1.0