Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 33761: Unit test

Browse source 
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Nick Clemens 2022-08-15 13:34:02 +00:00 committed by Tomas Cohen Arazi
parent 3962d88139
commit 67e9356dea
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
t/db_dependent/HoldsQueue.t
View file

@ -8,7 +8,7 @@
use Modern::Perl;
use Test::More tests => 60;
use Test::More tests => 61;
use Data::Dumper;
use C4::Calendar qw( new insert_single_holiday );
@ -2060,3 +2060,34 @@ subtest "Test HoldsQueuePrioritizeBranch" => 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_1 = $builder->build_object({ class => 'Koha::Item::Transfers', value => {
itemnumber => $item_1->itemnumber,
datearrived => undef,
datecancelled => undef
}});
my $transfer_2 = $builder->build_object({ class => 'Koha::Item::Transfers', value => {
itemnumber => $item_2->itemnumber,
datearrived => dt_from_string,
datecancelled => undef
}});
my $transfer_3 = $builder->build_object({ class => 'Koha::Item::Transfers', value => {
itemnumber => $item_3->itemnumber,
datearrived => undef,
datecancelled => dt_from_string
}});
my $items = C4::HoldsQueue::GetItemsAvailableToFillHoldRequestsForBib( $item_1->biblionumber );
is( scalar @$items, 2, "Two items without active transfers correctly retrieved");
is_deeply( [$items->[0]->{itemnumber},$items->[1]->{itemnumber}],[$item_2->itemnumber,$item_3->itemnumber],"Correct two items retrieved");
};