|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 23; |
5 |
use Test::More tests => 25; |
| 6 |
use MARC::Record; |
6 |
use MARC::Record; |
| 7 |
use DateTime::Duration; |
7 |
use DateTime::Duration; |
| 8 |
|
8 |
|
|
Lines 317-322
ModReserveAffect( $itemnumber, $requesters{'CPL'} , 0); #confirm hold
Link Here
|
| 317 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
317 |
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)'); |
| 318 |
# End of tests for bug 9788 |
318 |
# End of tests for bug 9788 |
| 319 |
|
319 |
|
|
|
320 |
# Test GetReserveNextRank (bug 8918) |
| 321 |
my $rank = C4::Reserves::GetReserveNextRank($bibnum2); |
| 322 |
is($rank, 4, 'GetReserveNextRank should return rank 4'); |
| 323 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum2, $constraint, $bibitems, undef, |
| 324 |
$resdate, $expdate, $notes, $title); |
| 325 |
$rank = C4::Reserves::GetReserveNextRank($bibnum2); |
| 326 |
is($rank, 5, 'GetReserveNextRank should return rank 5'); |
| 327 |
# End of test GetReserveNextRank |
| 328 |
|
| 320 |
$dbh->rollback; |
329 |
$dbh->rollback; |
| 321 |
|
330 |
|
| 322 |
sub count_hold_print_messages { |
331 |
sub count_hold_print_messages { |
| 323 |
- |
|
|