Bug 29757: Unit tests

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

diff --git a/t/db_dependent/Koha/Account/Offsets.t b/t/db_dependent/Koha/Account/Offsets.t
index ee94252..9aea5df 100755 (executable)
--- a/t/db_dependent/Koha/Account/Offsets.t
+++ b/t/db_dependent/Koha/Account/Offsets.t
@@ -19,8 +19,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 1;
-use Test::Exception;
+use Test::More tests => 2;
 
 use Koha::Account::Offsets;
 
@@ -73,3 +72,34 @@ subtest 'total() tests' => sub {
 
     $schema->storage->txn_rollback;
 };
+
+subtest 'filter_by_non_reversable() and filter_by_reversable() tests' => sub {
+
+    plan tests => 4;
+
+    $schema->storage->txn_begin;
+
+    my $patron  = $builder->build_object( { class => 'Koha::Patrons' } );
+    my $account = $patron->account;
+
+    my $manual_fee = $account->add_debit({ amount => 11, interface => 'intranet', type => 'MANUAL' });
+
+    $account->pay( { amount => 1, type => 'WRITEOFF' } );
+    $account->pay( { amount => 2, type => 'DISCOUNT' } );
+    $account->pay( { amount => 3, type => 'CANCELLATION' } );
+    $account->pay( { amount => 4, type => 'PAYMENT' } );
+    $account->pay( { amount => 5, type => 'CREDIT' } );
+
+    # non-reversable offsets
+    is( $manual_fee->debit_offsets->filter_by_non_reversable->count,
+        3, '3 non-reversable offsets' );
+    is( $manual_fee->debit_offsets->filter_by_non_reversable->total,
+        -6, '-6 the total amount of the non-reversable offsets' );
+    # reversable offsets
+    is( $manual_fee->debit_offsets->filter_by_reversable->count,
+        2, 'The right reversable offsets count' );
+    is( $manual_fee->debit_offsets->filter_by_reversable->total,
+        -5, 'The right total amount of the reversable offsets' );
+
+    $schema->storage->txn_rollback;
+};