@@ -, +, @@ the DB --- t/Circulation_barcodedecode.t | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) --- a/t/Circulation_barcodedecode.t +++ a/t/Circulation_barcodedecode.t @@ -1,14 +1,31 @@ #!/usr/bin/perl + +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 26; +use t::lib::Mocks; + C4::Context->_new_userenv(123456); C4::Context->set_userenv(1,'kmkale' , 1, 'kk1' , 'IMS', 0, 'kmkale@anantcorp.com'); BEGIN { + # Mock the DB connexion and C4::Context + my $context = t::lib::Mocks::mock_dbh; use_ok('C4::Circulation'); } --