From 1416a7eb6d90539173f7dcc10712a661703a0d5f Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 8 Aug 2017 09:59:55 -0400 Subject: [PATCH] Bug 14826 [QA Followup] - Fix minor issues with unit tests --- t/db_dependent/Circulation.t | 2 +- t/db_dependent/Circulation/issue.t | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index cc6746b..9f05542 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 105; +use Test::More tests => 107; use DateTime; diff --git a/t/db_dependent/Circulation/issue.t b/t/db_dependent/Circulation/issue.t index 5adb123..e716bb4 100644 --- a/t/db_dependent/Circulation/issue.t +++ b/t/db_dependent/Circulation/issue.t @@ -207,8 +207,8 @@ $sth = $dbh->prepare($query); $sth->execute; my $countaccount = $sth -> fetchrow_array; is ($countaccount,0,"0 accountline exists"); -is( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ), - 1, "An issuing charge has been added" ); +is( ref( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ) ), + 'Koha::Account::Offset', "An issuing charge has been added" ); my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef ); $sth->execute; $countaccount = $sth -> fetchrow_array; -- 2.1.4