Lines 8-14
Link Here
|
8 |
|
8 |
|
9 |
use Modern::Perl; |
9 |
use Modern::Perl; |
10 |
|
10 |
|
11 |
use Test::More tests => 58; |
11 |
use Test::More tests => 59; |
12 |
use Data::Dumper; |
12 |
use Data::Dumper; |
13 |
|
13 |
|
14 |
use C4::Calendar qw( new insert_single_holiday ); |
14 |
use C4::Calendar qw( new insert_single_holiday ); |
Lines 1817-1819
subtest "GetHoldsQueueItems" => sub {
Link Here
|
1817 |
|
1817 |
|
1818 |
$schema->storage->txn_rollback; |
1818 |
$schema->storage->txn_rollback; |
1819 |
}; |
1819 |
}; |
1820 |
- |
1820 |
|
|
|
1821 |
subtest "GetItemsAvailableToFillHoldsRequestsForBib" => sub { |
1822 |
plan tests => 2; |
1823 |
|
1824 |
$schema->storage->txn_begin; |
1825 |
|
1826 |
my $item_1 = $builder->build_sample_item(); |
1827 |
my $item_2 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); |
1828 |
my $item_3 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); |
1829 |
|
1830 |
my $transfer = $builder->build_object({ class => 'Koha::Item::Transfers', value => { |
1831 |
itemnumber => $item_1->itemnumber, |
1832 |
datearrived => undef, |
1833 |
datecancelled => undef |
1834 |
}}); |
1835 |
|
1836 |
my $items = C4::HoldsQueue::GetItemsAvailableToFillHoldRequestsForBib( $item_1->biblionumber ); |
1837 |
is( scalar @$items, 2, "Two items without transfers correctly retrieved"); |
1838 |
is_deeply( [$items->[0]->{itemnumber},$items->[1]->{itemnumber}],[$item_2->itemnumber,$item_3->itemnumber],"Correct two items retrieved"); |
1839 |
}; |
1840 |
|