From 092cb61fe457186b32b16f73d408198ffcac5c27 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 --- t/db_dependent/Reserves.t | 122 +++++++++++++++++++++++++++++++++++--- 1 file changed, 113 insertions(+), 9 deletions(-) diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index 83b84bbc2d0..ed4b64db465 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -978,22 +978,18 @@ 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( - { - class => 'Koha::Patrons', - value => { branchcode => $item->homebranch } - } - ); + my $patron = $builder->build_object({ class => "Koha::Patrons" }); + $patron->branchcode( $item->homebranch ); subtest 'item level hold' => sub { plan tests => 5; my $reserve_id = AddReserve( { branchcode => $item->homebranch, - borrowernumber => $patron->borrowernumber, + borrowernumber => $patron->id, biblionumber => $item->biblionumber, priority => 1, itemnumber => $item->itemnumber, @@ -1004,7 +1000,7 @@ subtest 'reserves.item_level_hold' => sub { is( $hold->item_level_hold, 1, 'item_level_hold should be set when AddReserve is called with a specific item' ); # Mark it waiting - ModReserveAffect( $item->itemnumber, $patron->borrowernumber, 1 ); + ModReserveAffect( $item->itemnumber, $patron->id, 1 ); my $mock = Test::MockModule->new('Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue'); $mock->mock( 'enqueue', sub { @@ -1081,6 +1077,114 @@ 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.30.2