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

(-)a/t/db_dependent/Reserves.t (-2 / +10 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 17;
5
use Test::More tests => 19;
6
use MARC::Record;
6
use MARC::Record;
7
use DateTime::Duration;
7
use DateTime::Duration;
8
8
Lines 266-269 is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with Link Here
266
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum);
266
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum);
267
ok(defined($letter), 'can successfully generate hold slip (bug 10949)');
267
ok(defined($letter), 'can successfully generate hold slip (bug 10949)');
268
268
269
# Test GetReserveNextRank
270
my $rank = C4::Reserves::GetReserveNextRank($bibnum2);
271
is($rank, 4);
272
AddReserve('CPL', $requesters{'CPL'}, $bibnum2, $constraint, $bibitems, undef,
273
    $resdate, $expdate, $notes, $title);
274
$rank = C4::Reserves::GetReserveNextRank($bibnum2);
275
is($rank, 5);
276
# End of test GetReserveNextRank
277
269
$dbh->rollback;
278
$dbh->rollback;
270
- 

Return to bug 8918