|
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 |
|