From 2232f73d94fb9eddfd6ab9b7a9d8d42329c77f88 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 53bcd6d..228ca9c 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 fde7613..c959560 100644 --- a/t/db_dependent/Circulation/issue.t +++ b/t/db_dependent/Circulation/issue.t @@ -206,8 +206,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.7.4