Lines 225-245
subtest "store() tests" => sub {
Link Here
|
225 |
$passed_date = dt_from_string('2023-06-20'); |
225 |
$passed_date = dt_from_string('2023-06-20'); |
226 |
$hold->set( |
226 |
$hold->set( |
227 |
{ |
227 |
{ |
228 |
reservedate => $passed_date->ymd, |
228 |
reservedate => $passed_date->ymd, |
229 |
waitingdate => $passed_date->ymd, |
229 |
waitingdate => $passed_date->ymd, |
230 |
} |
230 |
} |
231 |
)->store(); |
231 |
)->store(); |
232 |
$hold->discard_changes; |
232 |
$hold->discard_changes; |
233 |
|
233 |
|
234 |
$hold->set_waiting; |
234 |
$hold->set_waiting; |
235 |
C4::Reserves::RevertWaitingStatus( |
235 |
C4::Reserves::RevertWaitingStatus( { itemnumber => $item->itemnumber } ); |
236 |
{ itemnumber => $item->itemnumber } |
|
|
237 |
); |
238 |
$hold->discard_changes; |
236 |
$hold->discard_changes; |
239 |
|
237 |
|
240 |
$expected_date = dt_from_string( $hold->reservedate )->add( years => 2 )->ymd; |
238 |
$expected_date = dt_from_string( $hold->reservedate )->add( years => 2 )->ymd; |
241 |
is( $hold->expirationdate, |
239 |
is( |
242 |
$expected_date, 'Expiration date set after reverting holds waiting status.' ); |
240 |
$hold->expirationdate, |
|
|
241 |
$expected_date, 'Expiration date set after reverting holds waiting status.' |
242 |
); |
243 |
|
243 |
|
244 |
my $patron_expiration_date = dt_from_string('2023-11-06')->ymd; |
244 |
my $patron_expiration_date = dt_from_string('2023-11-06')->ymd; |
245 |
$hold = Koha::Hold->new( |
245 |
$hold = Koha::Hold->new( |
246 |
- |
|
|