From 5bf82ec9eb9433d6c83413e46daa69d1f352cd63 Mon Sep 17 00:00:00 2001 From: Arthur Suzuki Date: Thu, 11 Apr 2024 14:03:16 +0200 Subject: [PATCH] Bug 25408: Added unit tests for opacitemholds policy Signed-off-by: Pedro Amorim Signed-off-by: Victor Grousset/tuxayo --- t/db_dependent/Reserves.t | 126 +++++++++++++++++++++++++++++++++++++- 1 file changed, 125 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index 83b84bbc2d..74c6891f9c 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -978,7 +978,7 @@ subtest 'ChargeReserveFee tests' => sub { }; subtest 'reserves.item_level_hold' => sub { - plan tests => 2; + plan tests => 4; my $item = $builder->build_sample_item; my $patron = $builder->build_object( @@ -1081,6 +1081,130 @@ subtest 'reserves.item_level_hold' => sub { $hold->delete; }; + subtest 'test opacitemholds rules' => sub { + plan tests => 6; + + Koha::CirculationRules->set_rules( + { + branchcode => undef, + categorycode => undef, + itemtype => undef, + rules => { + reservesallowed => 25, + opacitemholds => 'F', + } + } + ); + + my $canreserve = C4::Reserves::CanBookBeReserved( $patron->id, $item->biblionumber ); + + is( + $canreserve->{status}, + 'recordHoldNotAllowed', + 'record-level holds should not be possible with opacitemholds set to "Force"' + ); + + $canreserve = C4::Reserves::CanItemBeReserved( $patron, $item ); + + is( + $canreserve->{status}, 'OK', + 'item-level holds should be possible with opacitemholds set to "Force"' + ); + + Koha::CirculationRules->set_rules( + { + branchcode => undef, + categorycode => undef, + itemtype => undef, + rules => { + reservesallowed => 25, + opacitemholds => 'N', + } + } + ); + + $canreserve = C4::Reserves::CanBookBeReserved( $patron->id, $item->biblionumber ); + + is( + $canreserve->{status}, 'OK', + 'record-level holds should be possible with opacitemholds set to "No"' + ); + + $canreserve = C4::Reserves::CanItemBeReserved( $patron, $item ); + + is( + $canreserve->{status}, 'recordHoldsOnly', + 'item-level holds should not be possible with opacitemholds set to "No"' + ); + + Koha::CirculationRules->set_rules( + { + branchcode => undef, + categorycode => undef, + itemtype => undef, + rules => { + reservesallowed => 25, + opacitemholds => 'Y', + } + } + ); + + $canreserve = C4::Reserves::CanBookBeReserved( $patron->id, $item->biblionumber ); + + is( + $canreserve->{status}, 'OK', + 'record-level holds should be possible with opacitemholds set to "Yes"' + ); + + $canreserve = C4::Reserves::CanItemBeReserved( $patron, $item ); + + is( + $canreserve->{status}, 'OK', + 'item-level holds should be possible with opacitemholds set to "Yes"' + ); + }; + + subtest 'test opacitemholds rules in staff context' => sub { + plan tests => 2; + + C4::Context->interface('intranet'); + Koha::CirculationRules->set_rules( + { + branchcode => undef, + categorycode => undef, + itemtype => undef, + rules => { + reservesallowed => 25, + opacitemholds => 'N', + } + } + ); + + my $canreserve = C4::Reserves::CanBookBeReserved( $patron->id, $item->biblionumber ); + + is( + $canreserve->{status}, 'OK', + 'record-level holds should be possible with opacitemholds set to "No"' + ); + + $canreserve = C4::Reserves::CanItemBeReserved( $patron, $item ); + + is( + $canreserve->{status}, 'OK', + 'item-level holds should still be possible in staff context, even with opacitemholds set to "No"' + ); + }; + + Koha::CirculationRules->set_rules( + { + branchcode => undef, + categorycode => undef, + itemtype => undef, + rules => { + opacitemholds => undef, + } + } + ); }; subtest 'MoveReserve additional test' => sub { -- 2.44.0