Lines 5974-5985
subtest 'Checkout should correctly terminate a transfer' => sub {
Link Here
|
5974 |
|
5974 |
|
5975 |
my $do_transfer = 1; |
5975 |
my $do_transfer = 1; |
5976 |
ModItemTransfer( $item->itemnumber, $library_1->branchcode, |
5976 |
ModItemTransfer( $item->itemnumber, $library_1->branchcode, |
5977 |
$library_2->branchcode, 'Manual' ); |
5977 |
$library_2->branchcode, 'Reserve' ); |
5978 |
ModReserveAffect( $item->itemnumber, undef, $do_transfer, $reserve_id ); |
5978 |
ModReserveAffect( $item->itemnumber, undef, $do_transfer, $reserve_id ); |
5979 |
ModItemTransfer( |
|
|
5980 |
$item->itemnumber, $library_1->branchcode, |
5981 |
$library_2->branchcode, 'Reserve' |
5982 |
); # To put the Reason, it's what does returns.pl... |
5983 |
my $hold = Koha::Holds->find($reserve_id); |
5979 |
my $hold = Koha::Holds->find($reserve_id); |
5984 |
is( $hold->found, 'T', 'Hold is in transit' ); |
5980 |
is( $hold->found, 'T', 'Hold is in transit' ); |
5985 |
my $transfer = $item->get_transfer; |
5981 |
my $transfer = $item->get_transfer; |
Lines 5992-5998
subtest 'Checkout should correctly terminate a transfer' => sub {
Link Here
|
5992 |
$transfer = $transfer->get_from_storage; |
5988 |
$transfer = $transfer->get_from_storage; |
5993 |
isnt( $transfer->datearrived, undef ); |
5989 |
isnt( $transfer->datearrived, undef ); |
5994 |
$hold = $hold->get_from_storage; |
5990 |
$hold = $hold->get_from_storage; |
5995 |
is( $hold->found, undef, 'Hold is waiting' ); |
5991 |
is( $hold->found, undef, 'Hold is not waiting or transit' ); |
5996 |
is( $hold->priority, 1, ); |
5992 |
is( $hold->priority, 1, ); |
5997 |
}; |
5993 |
}; |
5998 |
|
5994 |
|
5999 |
- |
|
|