Bug 13278: (QA followup) use t::lib::Mocks

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Tomas Cohen Arazi 2014-11-19 18:05:54 -03:00
parent 48da54977a
commit b8a0eefc23
1 changed files with 2 additions and 8 deletions

View File

@ -18,16 +18,10 @@
use Modern::Perl;
use Test::More tests => 3;
use Test::MockModule;
use DBD::Mock;
use t::lib::Mocks;
# Mock the DB connexion and C4::Context
my $context = new Test::MockModule('C4::Context');
$context->mock( '_new_dbh', sub {
my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
|| die "Cannot create handle: $DBI::errstr\n";
return $dbh;
});
my $context = t::lib::Mocks::mock_dbh;
use_ok('C4::Search');
can_ok('C4::Search',