diff --git a/t/00-load.t b/t/00-load.t index 88830b3c51..428ef39b23 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -20,8 +20,8 @@ use Modern::Perl; use Test::More; use File::Spec; use File::Find; -use Test::MockModule; -use DBD::Mock; + +use t::lib::Mocks; =head1 DESCRIPTION @@ -29,13 +29,7 @@ use DBD::Mock; =cut -# 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_module = t::lib::Mocks::mock_dbh; # Loop through the C4:: modules my $lib = File::Spec->rel2abs('C4'); diff --git a/t/lib/Mocks.pm b/t/lib/Mocks.pm index 3f834d27c9..55ce9d5db5 100644 --- a/t/lib/Mocks.pm +++ b/t/lib/Mocks.pm @@ -2,6 +2,8 @@ package t::lib::Mocks; use Modern::Perl; use C4::Context; + +use DBD::Mock; use Test::MockModule; my %configs; @@ -36,4 +38,14 @@ sub mock_preference { }); } +sub mock_dbh { + 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; + } ); + return $context; +} + 1;