From 4ac252d8dd18c216c13e71ae64c6e0e61894b350 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 5 Jul 2017 17:38:41 -0300 Subject: [PATCH] Bug 18851: Tests must be skipped in cardnumber.t if Test::DBIx::Class is not installed --- t/Members/cardnumber.t | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/t/Members/cardnumber.t b/t/Members/cardnumber.t index f2f7882a3a..47902f8a0b 100644 --- a/t/Members/cardnumber.t +++ b/t/Members/cardnumber.t @@ -1,7 +1,9 @@ #!/usr/bin/env perl use Modern::Perl; -use Test::More tests => 25; +use Module::Load::Conditional qw/check_install/; +use Test::More; +use Test::MockModule; use t::lib::Mocks; @@ -9,9 +11,18 @@ use Koha::Schema; use_ok('C4::Members'); BEGIN { - use Test::DBIx::Class; + if ( check_install( module => 'Test::DBIx::Class' ) ) { + plan tests => 25; + } else { + plan skip_all => "Need Test::DBIx::Class" + } } +use Test::DBIx::Class; + +my $db = Test::MockModule->new('Koha::Database'); +$db->mock( _new_schema => sub { return Schema(); } ); + my $dbh = C4::Context->dbh; my $rs = []; -- 2.11.0