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

(-)a/t/db_dependent/Koha/Account/Offsets.t (-3 / +32 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::More tests => 2;
23
use Test::Exception;
24
23
25
use Koha::Account::Offsets;
24
use Koha::Account::Offsets;
26
25
Lines 73-75 subtest 'total() tests' => sub { Link Here
73
72
74
    $schema->storage->txn_rollback;
73
    $schema->storage->txn_rollback;
75
};
74
};
76
- 
75
76
subtest 'filter_by_non_reversable() and filter_by_reversable() tests' => sub {
77
78
    plan tests => 4;
79
80
    $schema->storage->txn_begin;
81
82
    my $patron  = $builder->build_object( { class => 'Koha::Patrons' } );
83
    my $account = $patron->account;
84
85
    my $manual_fee = $account->add_debit({ amount => 11, interface => 'intranet', type => 'MANUAL' });
86
87
    $account->pay( { amount => 1, type => 'WRITEOFF' } );
88
    $account->pay( { amount => 2, type => 'DISCOUNT' } );
89
    $account->pay( { amount => 3, type => 'CANCELLATION' } );
90
    $account->pay( { amount => 4, type => 'PAYMENT' } );
91
    $account->pay( { amount => 5, type => 'CREDIT' } );
92
93
    # non-reversable offsets
94
    is( $manual_fee->debit_offsets->filter_by_non_reversable->count,
95
        3, '3 non-reversable offsets' );
96
    is( $manual_fee->debit_offsets->filter_by_non_reversable->total,
97
        -6, '-6 the total amount of the non-reversable offsets' );
98
    # reversable offsets
99
    is( $manual_fee->debit_offsets->filter_by_reversable->count,
100
        2, 'The right reversable offsets count' );
101
    is( $manual_fee->debit_offsets->filter_by_reversable->total,
102
        -5, 'The right total amount of the reversable offsets' );
103
104
    $schema->storage->txn_rollback;
105
};

Return to bug 29757