From b83ffcc249bfd81cfc7e354ea2ef18145abd0eb8 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 Signed-off-by: Tomas Cohen Arazi --- 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 b893aef..d1802a2 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 => 109; use DateTime; diff --git a/t/db_dependent/Circulation/issue.t b/t/db_dependent/Circulation/issue.t index 2f12201..0986d02 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.10.2