|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 2; |
22 |
use Test::More tests => 3; |
| 23 |
|
23 |
|
| 24 |
use Koha::Account; |
24 |
use Koha::Account; |
| 25 |
use Koha::Account::Lines; |
25 |
use Koha::Account::Lines; |
|
Lines 65-70
subtest 'outstanding_debits() tests' => sub {
Link Here
|
| 65 |
$schema->storage->txn_rollback; |
65 |
$schema->storage->txn_rollback; |
| 66 |
}; |
66 |
}; |
| 67 |
|
67 |
|
|
|
68 |
subtest 'outstanding_credits() tests' => sub { |
| 69 |
|
| 70 |
plan tests => 5; |
| 71 |
|
| 72 |
$schema->storage->txn_begin; |
| 73 |
|
| 74 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
| 75 |
my $account = Koha::Account->new({ patron_id => $patron->id }); |
| 76 |
|
| 77 |
my @generated_lines; |
| 78 |
push @generated_lines, $account->add_credit({ amount => 1 }); |
| 79 |
push @generated_lines, $account->add_credit({ amount => 2 }); |
| 80 |
push @generated_lines, $account->add_credit({ amount => 3 }); |
| 81 |
push @generated_lines, $account->add_credit({ amount => 4 }); |
| 82 |
|
| 83 |
my ( $total, $lines ) = $account->outstanding_credits(); |
| 84 |
|
| 85 |
is( $total, -10, 'Outstandig debits total is correctly calculated' ); |
| 86 |
|
| 87 |
my $i = 0; |
| 88 |
foreach my $line ( @{ $lines->as_list } ) { |
| 89 |
my $fetched_line = Koha::Account::Lines->find( $generated_lines[$i]->id ); |
| 90 |
is_deeply( $line->unblessed, $fetched_line->unblessed, "Fetched line matches the generated one ($i)" ); |
| 91 |
$i++; |
| 92 |
} |
| 93 |
|
| 94 |
$schema->storage->txn_rollback; |
| 95 |
}; |
| 96 |
|
| 68 |
subtest 'add_credit() tests' => sub { |
97 |
subtest 'add_credit() tests' => sub { |
| 69 |
|
98 |
|
| 70 |
plan tests => 15; |
99 |
plan tests => 15; |
| 71 |
- |
|
|