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