|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 16; |
22 |
use Test::More tests => 17; |
| 23 |
use t::lib::TestBuilder; |
23 |
use t::lib::TestBuilder; |
| 24 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
| 25 |
|
25 |
|
|
Lines 205-210
$hold->store();
Link Here
|
| 205 |
$holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); |
205 |
$holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); |
| 206 |
is( $holds->forced_hold_level, 'item', "Item level hold forces item level holds" ); |
206 |
is( $holds->forced_hold_level, 'item', "Item level hold forces item level holds" ); |
| 207 |
|
207 |
|
|
|
208 |
my $item_group = Koha::Biblio::ItemGroup->new( { biblio_id => $biblio->id } )->store(); |
| 209 |
$hold->itemnumber( undef ); |
| 210 |
$hold->item_group_id( $item_group->id ); |
| 211 |
$hold->store(); |
| 212 |
|
| 213 |
$holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } ); |
| 214 |
is( $holds->forced_hold_level, 'item_group', "Item group level hold forces item group level holds" ); |
| 215 |
|
| 208 |
$hold->delete(); |
216 |
$hold->delete(); |
| 209 |
|
217 |
|
| 210 |
# Test multi-hold via AddReserve |
218 |
# Test multi-hold via AddReserve |
| 211 |
- |
|
|