From 41a6200352c9dee03eb82603c839cb50ce8adf00 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 16 Nov 2018 09:54:39 -0500 Subject: [PATCH] Bug 21849: Add unit tests Content-Type: text/plain; charset=utf-8 Signed-off-by: Tomas Cohen Arazi Signed-off-by: Marcel de Rooy --- t/db_dependent/Circulation.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index 93f6257..c4b932c 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -2291,7 +2291,7 @@ subtest '_FixAccountForLostAndReturned' => sub { }; subtest '_FixOverduesOnReturn' => sub { - plan tests => 6; + plan tests => 10; # Generate test biblio my $title = 'Koha for Dummies'; @@ -2344,9 +2344,12 @@ subtest '_FixOverduesOnReturn' => sub { C4::Circulation::_FixOverduesOnReturn( $patron->{borrowernumber}, $itemnumber, 1 ); $accountline->_result()->discard_changes(); + my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Forgiven' })->next(); is( $accountline->amountoutstanding + 0, 0, 'Fine has been reduced to 0' ); is( $accountline->accounttype, 'FFOR', 'Open fine ( account type FU ) has been set to fine forgiven ( account type FFOR )'); + is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" ); + is( $offset->amount, '-99.000000', "Amount of offset is correct" ); ## Run again, with dropbox mode enabled $accountline->set( @@ -2359,9 +2362,12 @@ subtest '_FixOverduesOnReturn' => sub { C4::Circulation::_FixOverduesOnReturn( $patron->{borrowernumber}, $itemnumber, 0, 1 ); $accountline->_result()->discard_changes(); + $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Dropbox' })->next(); is( $accountline->amountoutstanding + 0, 90, 'Fine has been reduced to 90' ); is( $accountline->accounttype, 'F', 'Open fine ( account type FU ) has been closed out ( account type F )'); + is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via dropbox" ); + is( $offset->amount, '-9.000000', "Amount of offset is correct" ); }; subtest 'Set waiting flag' => sub { -- 2.1.4