From 96d30a43dfb9d940bd761a7a61754e9803a8a8f4 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Mon, 15 Aug 2022 13:34:02 +0000 Subject: [PATCH] Bug 30580: Unit test --- t/db_dependent/HoldsQueue.t | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/HoldsQueue.t b/t/db_dependent/HoldsQueue.t index 7067931c35..8b079be96e 100755 --- a/t/db_dependent/HoldsQueue.t +++ b/t/db_dependent/HoldsQueue.t @@ -8,7 +8,7 @@ use Modern::Perl; -use Test::More tests => 58; +use Test::More tests => 59; use Data::Dumper; use C4::Calendar qw( new insert_single_holiday ); @@ -1817,3 +1817,24 @@ subtest "GetHoldsQueueItems" => sub { $schema->storage->txn_rollback; }; + +subtest "GetItemsAvailableToFillHoldsRequestsForBib" => sub { + plan tests => 2; + + $schema->storage->txn_begin; + + my $item_1 = $builder->build_sample_item(); + my $item_2 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); + my $item_3 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); + + my $transfer = $builder->build_object({ class => 'Koha::Item::Transfers', value => { + itemnumber => $item_1->itemnumber, + datearrived => undef, + datecancelled => undef + }}); + + my $items = C4::HoldsQueue::GetItemsAvailableToFillHoldRequestsForBib( $item_1->biblionumber ); + is( scalar @$items, 2, "Two items without transfers correctly retrieved"); + is_deeply( [$items->[0]->{itemnumber},$items->[1]->{itemnumber}],[$item_2->itemnumber,$item_3->itemnumber],"Correct two items retrieved"); +}; + -- 2.30.2