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