$resdate=undef;

#some tests on bibnum

$dbh->do("DELETE FROM reserves WHERE biblionumber=?",undef,($bibnum));

$p = C4::Reserves::CalculatePriority($bibnum);

is($p, 1, 'CalculatePriority  should now return priority 1');

#add a new reserve and confirm it to waiting

AddReserve('CPL',  $requesters{'CPL'}, $bibnum,

           $constraint, $bibitems,  $p, $resdate, $expdate, $notes,

           $title,      $itemnumber, $found);

$p = C4::Reserves::CalculatePriority($bibnum);

is($p, 2, 'CalculatePriority  should now return priority 2');

ModReserveAffect( $itemnumber,  $requesters{'CPL'} , 0);

$p = C4::Reserves::CalculatePriority($bibnum);

is($p, 1, 'CalculatePriority  should now return priority 1');

#add another biblio hold, no resdate

AddReserve('CPL',  $requesters{'CPL'}, $bibnum,

           $constraint, $bibitems,  $p, $resdate, $expdate, $notes,

           $title,      $checkitem, $found);

$p = C4::Reserves::CalculatePriority($bibnum);

is($p, 2, 'CalculatePriority  should now return priority 2');

#add another future hold

C4::Context->set_preference('AllowHoldDateInFuture', 1);

$resdate= dt_from_string();

$resdate->add_duration(DateTime::Duration->new(days => 1));

$resdate=output_pref($resdate);

AddReserve('CPL',  $requesters{'CPL'}, $bibnum,

           $constraint, $bibitems,  $p, $resdate, $expdate, $notes,

           $title,      $checkitem, $found);

$p = C4::Reserves::CalculatePriority($bibnum);

is($p, 2, 'CalculatePriority  should now still return priority 2');

#calc priority with future resdate

$p = C4::Reserves::CalculatePriority($bibnum, $resdate);

is($p, 3, 'CalculatePriority  should now return priority 3');