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

(-)a/t/db_dependent/Koha/Account.t (-3 / +2 lines)
Lines 780-786 subtest 'Koha::Account::Line::apply() handles lost items' => sub { Link Here
780
        }
780
        }
781
    )->store();
781
    )->store();
782
    my $debits = $account->outstanding_debits;
782
    my $debits = $account->outstanding_debits;
783
    $credit->apply({ debits => $debits });
783
    $credit->apply({ debits => [ $debits->as_list ] });
784
784
785
    $debit = Koha::Account::Lines->find( $debit->id );
785
    $debit = Koha::Account::Lines->find( $debit->id );
786
    is( $debit->amountoutstanding, '0.500000', 'Account line was paid down by half' );
786
    is( $debit->amountoutstanding, '0.500000', 'Account line was paid down by half' );
Lines 798-804 subtest 'Koha::Account::Line::apply() handles lost items' => sub { Link Here
798
        }
798
        }
799
    )->store();
799
    )->store();
800
    $debits = $account->outstanding_debits;
800
    $debits = $account->outstanding_debits;
801
    $credit->apply({ debits => $debits });
801
    $credit->apply({ debits => [ $debits->as_list ] });
802
802
803
    $debit = Koha::Account::Lines->find( $debit->id );
803
    $debit = Koha::Account::Lines->find( $debit->id );
804
    is( $debit->amountoutstanding, '0.000000', 'Account line was paid down by half' );
804
    is( $debit->amountoutstanding, '0.000000', 'Account line was paid down by half' );
805
- 

Return to bug 22837