5 use Test::More tests => 14;
9 use File::Temp qw( tempdir tempfile );
12 use Module::Load::Conditional qw(can_load);
19 push( @INC, dirname(__FILE__) . '/../../../../lib' );
21 use_ok('Koha::Plugins');
22 use_ok('Koha::Plugins::Handler');
23 use_ok('Koha::Plugins::Base');
24 use_ok('Koha::Plugin::Test');
27 t::lib::Mocks::mock_preference( 'UseKohaPlugins', 1 );
28 t::lib::Mocks::mock_config( 'enable_plugins', 1 );
30 my $schema = Koha::Database->new->schema;
31 $schema->storage->txn_begin;
34 my $plugins = Koha::Plugins->new;
35 $plugins->InstallPlugins;
36 my @plugins = $plugins->GetPlugins({ all => 1, class => 'Koha::Plugin::Test' });
37 map { $_->enable; } @plugins;
39 my $mock_plugin = Test::MockModule->new( 'Koha::Plugin::Test' );
40 $mock_plugin->mock( 'test_template', sub {
41 my ( $self, $file ) = @_;
42 my $template = $self->get_template({ file => $file });
43 $template->param( filename => $file );
44 return $template->output;
47 use_ok( 'Koha::Template::Plugin::KohaPlugins', 'Can use Koha::Template::Plugin::KohaPlugins' );
49 ok( my $plugin = Koha::Template::Plugin::KohaPlugins->new(), 'Able to instantiate template plugin' );
51 ok( index( $plugin->get_plugins_opac_js, 'Koha::Plugin::Test::opac_js' ) != -1, 'Test plugin opac_js return value is part of code returned by get_plugins_opac_js' );
52 ok( index( $plugin->get_plugins_opac_head, 'Koha::Plugin::Test::opac_head' ) != -1, 'Test plugin opac_head return value is part of code returned by get_plugins_opac_head' );
53 ok( index( $plugin->get_plugins_intranet_js, 'Koha::Plugin::Test::intranet_js' ) != -1, 'Test plugin intranet_js return value is part of code returned by get_plugins_intranet_js' );
54 ok( index( $plugin->get_plugins_intranet_head, 'Koha::Plugin::Test::intranet_head' ) != -1, 'Test plugin intranet_head return value is part of code returned by get_plugins_intranet_head' );
56 t::lib::Mocks::mock_preference('UseKohaPlugins',0);
57 t::lib::Mocks::mock_config('enable_plugins',0);
58 is( $plugin->get_plugins_opac_js, q{}, 'Test plugin opac_js return value is empty' );
59 is( $plugin->get_plugins_opac_head, q{}, 'Test plugin opac_head return value is empty' );
60 is( $plugin->get_plugins_intranet_js, q{}, 'Test plugin intranet_js return value is empty' );
61 is( $plugin->get_plugins_intranet_head, q{}, 'Test plugin intranet_head return value is empty' );
63 $schema->storage->txn_rollback;