From 8c14c3b32a57fd9a3be4c7e44a79e1a4b8cc8acf Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 28 Oct 2016 09:54:20 +0200 Subject: [PATCH] Bug 14598: [QA Follow-up] Small changes [1] Renames the dbrev version to XXX; adding a my for $sth, although not strictly necessary it feels better. [2] Circulation.t stumbles over: Undefined subroutine &C4::Circulation::GetItem called at ... line 1283. Somehow this is related to use_ok instead of a regular use. Worked around this by require_ok and adding a regular use. Signed-off-by: Marcel de Rooy Signed-off-by: Mason James --- installer/data/mysql/updatedatabase.pl | 4 ++-- t/db_dependent/Circulation.t | 10 ++++++++++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index f9e0babe50..ce6eae79af 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -12819,10 +12819,10 @@ if ( CheckVersion($DBversion) ) { SetVersion($DBversion); } -$DBversion = "3.23.00.XXX"; +$DBversion = "XXX"; if ( CheckVersion($DBversion) ) { - $sth = $dbh->prepare(q{ + my $sth = $dbh->prepare(q{ SELECT s.itemnumber, i.itype, b.itemtype FROM ( SELECT DISTINCT itemnumber diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index df992ebd32..41704ccd28 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -17,8 +17,18 @@ use Modern::Perl; +use Test::More tests => 88; + +BEGIN { + require_ok('C4::Circulation'); +} + use DateTime; + use t::lib::Mocks; +use t::lib::TestBuilder; + +use C4::Circulation; use C4::Biblio; use C4::Branch; use C4::Items; -- 2.39.5