Bug 17327: Add unit test for regression

Signed-off-by: Benjamin Rokseth <benjamin.rokseth@kul.oslo.kommune.no>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/t/db_dependent/Reserves/MultiplePerRecord.t b/t/db_dependent/Reserves/MultiplePerRecord.t
index e5c2f3d..9771051 100755 (executable)
--- 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} );