Bug 22709: (RM follow-up) Clean up plugin tests

The plugin tests were failing due to failed rollbacks and run order.
This patch moves them into their own directory and adds a reset test to
restore the original state of the plugin system after the tests have
run.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2019-07-12 11:45:25 +01:00
parent 54c5ec977c
commit d25f3e8437
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
4 changed files with 34 additions and 2 deletions

View File

@ -28,7 +28,7 @@ use t::lib::TestBuilder;
BEGIN {
# Mock pluginsdir before loading Plugins module
my $path = dirname(__FILE__) . '/../../lib';
my $path = dirname(__FILE__) . '/../../../lib';
t::lib::Mocks::mock_config( 'pluginsdir', $path );
use_ok('Koha::Plugins');

View File

@ -35,7 +35,7 @@ use t::lib::Mocks;
BEGIN {
# Mock pluginsdir before loading Plugins module
my $path = dirname(__FILE__) . '/../lib';
my $path = dirname(__FILE__) . '/../../../lib';
t::lib::Mocks::mock_config( 'pluginsdir', $path );
use_ok('Koha::Plugins');
@ -297,6 +297,10 @@ subtest 'bundle_path() tests' => sub {
my @current_dir = File::Spec->splitdir(abs_path(__FILE__));
# remote Plugins.t
pop @current_dir;
# remove /Plugins
pop @current_dir;
# remove /Koha
pop @current_dir;
# remove db_dependent
pop @current_dir;

View File

@ -0,0 +1,28 @@
#!/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 <http://www.gnu.org/licenses>.
use Modern::Perl;
use C4::Context;
use Koha::Plugins;
use Koha::Plugins::Methods;
use Test::More tests => 1;
my $plugins = Koha::Plugins->new()->InstallPlugins;
ok( 1, 'Plugins reset' );
1;