From 4f3cd64199fc4e41156f6ba14c06144e93ab51ce Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 21 Sep 2016 02:13:47 +0000 Subject: [PATCH] Bug 17327: Add unit test for regression Signed-off-by: Benjamin Rokseth Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/Reserves/MultiplePerRecord.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Reserves/MultiplePerRecord.t b/t/db_dependent/Reserves/MultiplePerRecord.t index e5c2f3d..9771051 100755 --- a/t/db_dependent/Reserves/MultiplePerRecord.t +++ b/t/db_dependent/Reserves/MultiplePerRecord.t @@ -20,7 +20,7 @@ use Carp::Always; use Modern::Perl; -use Test::More tests => 37; +use Test::More tests => 38; use t::lib::TestBuilder; use C4::Reserves qw( GetMaxPatronHoldsForRecord AddReserve CanBookBeReserved ); @@ -231,6 +231,9 @@ $rule3->delete(); $rule4->delete(); $rule5->delete(); +my $holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); +is( $holds->forced_hold_level, undef, "No holds does not force an item or record level hold" ); + # Test Koha::Holds::forced_hold_level my $hold = Koha::Hold->new({ borrowernumber => $patron->{borrowernumber}, @@ -240,7 +243,7 @@ my $hold = Koha::Hold->new({ priority => 1, })->store(); -my $holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); +$holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); is( $holds->forced_hold_level, 'record', "Record level hold forces record level holds" ); $hold->itemnumber( $item1->{itemnumber} ); -- 2.7.4