|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 3; |
22 |
use Test::More tests => 4; |
| 23 |
|
23 |
|
| 24 |
use Koha::Account; |
24 |
use Koha::Account; |
| 25 |
use Koha::Account::Lines; |
25 |
use Koha::Account::Lines; |
|
Lines 192-194
subtest 'add_credit() tests' => sub {
Link Here
|
| 192 |
|
192 |
|
| 193 |
$schema->storage->txn_rollback; |
193 |
$schema->storage->txn_rollback; |
| 194 |
}; |
194 |
}; |
| 195 |
- |
195 |
|
|
|
196 |
subtest 'lines() tests' => sub { |
| 197 |
|
| 198 |
plan tests => 1; |
| 199 |
|
| 200 |
$schema->storage->txn_begin; |
| 201 |
|
| 202 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
| 203 |
my $account = $patron->account; |
| 204 |
|
| 205 |
my @generated_lines; |
| 206 |
|
| 207 |
# Add Credits |
| 208 |
push @generated_lines, $account->add_credit({ amount => 1 }); |
| 209 |
push @generated_lines, $account->add_credit({ amount => 2 }); |
| 210 |
push @generated_lines, $account->add_credit({ amount => 3 }); |
| 211 |
push @generated_lines, $account->add_credit({ amount => 4 }); |
| 212 |
|
| 213 |
# Add Debits |
| 214 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 1 })->store; |
| 215 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 2 })->store; |
| 216 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 3 })->store; |
| 217 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 4 })->store; |
| 218 |
|
| 219 |
# Paid Off |
| 220 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 0 })->store; |
| 221 |
push @generated_lines, Koha::Account::Line->new({ borrowernumber => $patron->id, amountoutstanding => 0 })->store; |
| 222 |
|
| 223 |
my $lines = $account->lines; |
| 224 |
is( $lines->_resultset->count, 10, "All accountlines (debits, credits and paid off) were fetched"); |
| 225 |
|
| 226 |
$schema->storage->txn_rollback; |
| 227 |
}; |