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

(-)a/t/db_dependent/Reserves.t (-2 / +27 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 => 20;
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
# Tests for bug 9788: Does GetReservesFromItemnumber return a future wait?
270
# 9788a: GetReservesFromItemnumber does not return future next available hold
271
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum));
272
C4::Context->set_preference('ConfirmFutureHolds', 2);
273
C4::Context->set_preference('AllowHoldDateInFuture', 1);
274
$resdate= dt_from_string();
275
$resdate->add_duration(DateTime::Duration->new(days => 2));
276
$resdate=output_pref($resdate);
277
AddReserve('CPL',  $requesters{'CPL'}, $bibnum,
278
           $constraint, $bibitems,  1, $resdate, $expdate, $notes,
279
           $title,      $checkitem, $found);
280
my @results= GetReservesFromItemnumber($itemnumber);
281
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future next available hold');
282
# 9788b: GetReservesFromItemnumber does not return future item level hold
283
$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum));
284
AddReserve('CPL',  $requesters{'CPL'}, $bibnum,
285
           $constraint, $bibitems,  1, $resdate, $expdate, $notes,
286
           $title,      $itemnumber, $found); #item level hold
287
my @results= GetReservesFromItemnumber($itemnumber);
288
is(defined $results[3]?1:0, 0, 'GetReservesFromItemnumber does not return a future item level hold');
289
# 9788c: GetReservesFromItemnumber returns future wait (confirmed future hold)
290
ModReserveAffect( $itemnumber,  $requesters{'CPL'} , 0); #confirm hold
291
my @results= GetReservesFromItemnumber($itemnumber);
292
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)');
293
# End of tests for bug 9788
294
269
$dbh->rollback;
295
$dbh->rollback;
270
- 

Return to bug 9788