From c76befd220da6c97b68e521f8bf4c1b0088b3624 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 2 Jun 2025 09:46:30 -0300 Subject: [PATCH] Bug 40034: Regression tests Signed-off-by: David Nind --- t/db_dependent/Reserves.t | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t index b66706dcfc..b6361fac5c 100755 --- a/t/db_dependent/Reserves.t +++ b/t/db_dependent/Reserves.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 69; +use Test::More tests => 70; use Test::MockModule; use Test::Warn; @@ -2091,3 +2091,24 @@ subtest 'HOLDDGST tests' => sub { $schema->txn_rollback; }; + +# FIXME: This shouldn't be needed if the item type was a FK constraint for items +subtest 'CheckReserves() item type tests' => sub { + + plan tests => 1; + + $schema->storage->txn_begin; + + my $item_type_to_delete = $builder->build_object( { class => 'Koha::ItemTypes' } ); + my $non_existent_itype = $item_type_to_delete->itemtype; + $item_type_to_delete->delete; + + t::lib::Mocks::mock_preference( 'TrapHoldsOnOrder', 0 ); + + my $item = $builder->build_sample_item( { itype => $non_existent_itype, notforloan => 0, damaged => 0 } ); + + my ($res) = CheckReserves($item); + is( $res, '', 'No holds on new item' ); + + $schema->storage->txn_rollback; +}; -- 2.39.5