|
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 |
- |
|
|