|
Lines 34-40
my $builder = t::lib::TestBuilder->new;
Link Here
|
| 34 |
|
34 |
|
| 35 |
subtest 'outstanding_debits() tests' => sub { |
35 |
subtest 'outstanding_debits() tests' => sub { |
| 36 |
|
36 |
|
| 37 |
plan tests => 22; |
37 |
plan tests => 23; |
| 38 |
|
38 |
|
| 39 |
$schema->storage->txn_begin; |
39 |
$schema->storage->txn_begin; |
| 40 |
|
40 |
|
|
Lines 91-96
subtest 'outstanding_debits() tests' => sub {
Link Here
|
| 91 |
$lines = $account_4->outstanding_debits(); |
91 |
$lines = $account_4->outstanding_debits(); |
| 92 |
is( $lines->count, 0, 'No credits are confused with debits because of the amountoutstanding value' ); |
92 |
is( $lines->count, 0, 'No credits are confused with debits because of the amountoutstanding value' ); |
| 93 |
|
93 |
|
|
|
94 |
Koha::Account::Line->new({ borrowernumber => $patron_4->id, amount => -3, amountoutstanding => 3, accounttype => "F" })->store(); |
| 95 |
is ( $account_4->non_issues_charges, 3, 'Non issues charges are valid'); |
| 96 |
|
| 94 |
$schema->storage->txn_rollback; |
97 |
$schema->storage->txn_rollback; |
| 95 |
}; |
98 |
}; |
| 96 |
|
99 |
|
| 97 |
- |
|
|