|
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 |
# Tests for CalculatePriority (bug 8918) |
| 321 |
my $p = C4::Reserves::CalculatePriority($bibnum2); |
| 322 |
is($p, 4, 'CalculatePriority should now return priority 4'); |
| 323 |
AddReserve('CPL', $requesters{'CPL'}, $bibnum2, |
| 324 |
$constraint, $bibitems, $p, undef, $expdate, $notes, |
| 325 |
$title, $checkitem, $found); |
| 326 |
$p = C4::Reserves::CalculatePriority($bibnum2); |
| 327 |
is($p, 5, 'CalculatePriority should now return priority 5'); |
| 328 |
# End of tests for bug 8918 |
| 329 |
|
| 320 |
$dbh->rollback; |
330 |
$dbh->rollback; |
| 321 |
|
331 |
|
| 322 |
sub count_hold_print_messages { |
332 |
sub count_hold_print_messages { |
| 323 |
- |
|
|