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