|
Lines 298-304
subtest 'BlockReturnOfLostItems' => sub {
Link Here
|
| 298 |
my ( $doreturn, $messages, $issue ) = AddReturn($item->barcode); |
298 |
my ( $doreturn, $messages, $issue ) = AddReturn($item->barcode); |
| 299 |
is( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked"); |
299 |
is( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked"); |
| 300 |
is( $messages->{WasLost}, 1, "... and the WasLost flag should be set"); |
300 |
is( $messages->{WasLost}, 1, "... and the WasLost flag should be set"); |
| 301 |
is( $messages->{NeedsTransfer}, undef, "... and no transfer should be triggered"); |
301 |
is( $messages->{NeedsTransfer}, undef, "... and no transfer should be triggered" ); |
| 302 |
|
302 |
|
| 303 |
$item->discard_changes; |
303 |
$item->discard_changes; |
| 304 |
is( $item->itemlost, 1, "Item remains lost" ); |
304 |
is( $item->itemlost, 1, "Item remains lost" ); |
| 305 |
- |
|
|