View | Details | Raw Unified | Return to bug 20990
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Account.t (-2 / +30 lines)
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
- 

Return to bug 20990