View | Details | Raw Unified | Return to bug 17327
Collapse All | Expand All

(-)a/t/db_dependent/Reserves/MultiplePerRecord.t (-3 / +5 lines)
Lines 20-26 Link Here
20
use Carp::Always;
20
use Carp::Always;
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 37;
23
use Test::More tests => 38;
24
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
25
25
26
use C4::Reserves qw( GetMaxPatronHoldsForRecord AddReserve CanBookBeReserved );
26
use C4::Reserves qw( GetMaxPatronHoldsForRecord AddReserve CanBookBeReserved );
Lines 231-236 $rule3->delete(); Link Here
231
$rule4->delete();
231
$rule4->delete();
232
$rule5->delete();
232
$rule5->delete();
233
233
234
my $holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } );
235
is( $holds->forced_hold_level, undef, "No holds does not force an item or record level hold" );
236
234
# Test Koha::Holds::forced_hold_level
237
# Test Koha::Holds::forced_hold_level
235
my $hold = Koha::Hold->new({
238
my $hold = Koha::Hold->new({
236
    borrowernumber => $patron->{borrowernumber},
239
    borrowernumber => $patron->{borrowernumber},
Lines 240-246 my $hold = Koha::Hold->new({ Link Here
240
    priority => 1,
243
    priority => 1,
241
})->store();
244
})->store();
242
245
243
my $holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } );
246
$holds = Koha::Holds->search( { borrowernumber => $patron->{borrowernumber} } );
244
is( $holds->forced_hold_level, 'record', "Record level hold forces record level holds" );
247
is( $holds->forced_hold_level, 'record', "Record level hold forces record level holds" );
245
248
246
$hold->itemnumber( $item1->{itemnumber} );
249
$hold->itemnumber( $item1->{itemnumber} );
247
- 

Return to bug 17327