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

(-)a/t/db_dependent/Circulation.t (-7 / +6 lines)
Lines 3426-3442 subtest 'Cancel transfers on lost items' => sub { Link Here
3426
    is( $hold->found, 'T', 'Hold is in transit' );
3426
    is( $hold->found, 'T', 'Hold is in transit' );
3427
3427
3428
    #Check transfer exists and the items holding branch is the transfer destination branch before marking it as lost
3428
    #Check transfer exists and the items holding branch is the transfer destination branch before marking it as lost
3429
    my ($datesent,$frombranch,$tobranch) = GetTransfers($item->itemnumber);
3429
    my $transfer = $item->get_transfer;
3430
    is( $frombranch, $library_1->{branchcode}, 'The transfer is generated from the correct library');
3430
    is( $transfer->frombranch, $library_1->{branchcode}, 'The transfer is generated from the correct library');
3431
    is( $tobranch, $library_2->{branchcode}, 'The transfer is generated to the correct library');
3431
    is( $transfer->tobranch, $library_2->{branchcode}, 'The transfer is generated to the correct library');
3432
    my $itemcheck = Koha::Items->find($item->itemnumber);
3432
    my $itemcheck = Koha::Items->find($item->itemnumber);
3433
    is( $itemcheck->holdingbranch, $library_1->{branchcode}, 'Items holding branch is the transfers origination branch before it is marked as lost' );
3433
    is( $itemcheck->holdingbranch, $library_1->{branchcode}, 'Items holding branch is the transfers origination branch before it is marked as lost' );
3434
3434
3435
    #Simulate item being marked as lost and confirm the transfer is deleted and the items holding branch is the transfers source branch
3435
    #Simulate item being marked as lost and confirm the transfer is cancelled and the items holding branch is the transfers source branch
3436
    $item->itemlost(1)->store;
3436
    $item->itemlost(1)->store;
3437
    LostItem( $item->itemnumber, 'test', 1 );
3437
    LostItem( $item->itemnumber, 'test', 1 );
3438
    ($datesent,$frombranch,$tobranch) = GetTransfers($item->itemnumber);
3438
    $transfer = $item->get_transfer;
3439
    is( $tobranch, undef, 'The transfer on the lost item has been deleted as the LostItemCancelOutstandingTransfer is enabled');
3439
    is( $transfer, undef, 'The transfer on the lost item has been cancelled as the LostItemCancelOutstandingTransfer is enabled');
3440
    $itemcheck = Koha::Items->find($item->itemnumber);
3440
    $itemcheck = Koha::Items->find($item->itemnumber);
3441
    is( $itemcheck->holdingbranch, $library_1->{branchcode}, 'Lost item with cancelled hold has holding branch equallying the transfers source branch' );
3441
    is( $itemcheck->holdingbranch, $library_1->{branchcode}, 'Lost item with cancelled hold has holding branch equallying the transfers source branch' );
3442
3442
3443
- 

Return to bug 24295