@@ -, +, @@ --- t/Patron.t | 14 ++++++++++++-- t/Search.t | 12 +++++++++++- t/SuggestionEngine_AuthorityFile.t | 14 +++++++++++++- t/XSLT.t | 2 ++ 4 files changed, 38 insertions(+), 4 deletions(-) --- a/t/Patron.t +++ a/t/Patron.t @@ -17,16 +17,26 @@ use Modern::Perl; -use Test::More tests => 11; +use Test::More; use Test::Warn; use t::lib::Mocks; +use Module::Load::Conditional qw/check_install/; + BEGIN { - use Test::DBIx::Class; + if ( check_install( module => 'Test::DBIx::Class' ) ) { + plan tests => 11; + } else { + plan skip_all => "Need Test::DBIx::Class" + } use_ok('Koha::Object'); use_ok('Koha::Patron'); } +use Test::DBIx::Class; +my $db = Test::MockModule->new('Koha::Database'); +$db->mock( _new_schema => sub { return Schema(); } ); + my $object = Koha::Patron->new( { surname => 'Test Patron' } ); is( $object->surname(), 'Test Patron', "Accessor returns correct value" ); $object->surname('Test Patron Surname'); --- a/t/Search.t +++ a/t/Search.t @@ -17,9 +17,19 @@ use Modern::Perl; -use Test::More tests => 3; +use Test::More; use t::lib::Mocks; +use Module::Load::Conditional qw/check_install/; + +BEGIN { + if ( check_install( module => 'Test::DBIx::Class' ) ) { + plan tests => 3; + } else { + plan skip_all => "Need Test::DBIx::Class" + } +} + # Mock the DB connexion and C4::Context use Test::DBIx::Class; --- a/t/SuggestionEngine_AuthorityFile.t +++ a/t/SuggestionEngine_AuthorityFile.t @@ -28,8 +28,20 @@ use Test::More; use Test::MockModule; use t::lib::Mocks; -# Mock the DB connexion and C4::Context +use Module::Load::Conditional qw/check_install/; + +BEGIN { + if ( check_install( module => 'Test::DBIx::Class' ) ) { + plan tests => 3; + } else { + plan skip_all => "Need Test::DBIx::Class" + } +} + +# Mock the DB connexion use Test::DBIx::Class; +my $db = Test::MockModule->new('Koha::Database'); +$db->mock( _new_schema => sub { return Schema(); } ); use_ok('Koha::SuggestionEngine'); --- a/t/XSLT.t +++ a/t/XSLT.t @@ -36,6 +36,8 @@ BEGIN { }; use Test::DBIx::Class; +my $db = Test::MockModule->new('Koha::Database'); +$db->mock( _new_schema => sub { return Schema(); } ); my $dir = File::Temp->newdir(); my @themes = ('prog', 'test'); --