t/db_dependent/Plugins.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 16;
   7 use File::Basename;
   8
   9 use Module::Load::Conditional qw(can_load);
  10
  11 use C4::Context;
  12
  13 BEGIN {
  14     push( @INC, dirname(__FILE__) . '/..' );
  15
  16     use_ok('Koha::Plugins');
  17     use_ok('Koha::Plugins::Handler');
  18     use_ok('Koha::Plugins::Base');
  19     use_ok('Koha::Plugin::Test');
  20 }
  21
  22 ok( can_load( modules => { "Koha::Plugin::Test" => undef } ), 'Test can_load' );
  23
  24 my $plugin = Koha::Plugin::Test->new({ enable_plugins => 1});
  25
  26 isa_ok( $plugin, "Koha::Plugin::Test", 'Test plugin class' );
  27 isa_ok( $plugin, "Koha::Plugins::Base", 'Test plugin parent class' );
  28
  29 ok( $plugin->can('report'), 'Test plugin can report' );
  30 ok( $plugin->can('tool'), 'Test plugin can tool' );
  31 ok( $plugin->can('configure'), 'Test plugin can configure' );
  32 ok( $plugin->can('install'), 'Test plugin can install' );
  33 ok( $plugin->can('uninstall'), 'Test plugin can install' );
  34
  35 ok( Koha::Plugins::Handler->run({ class => "Koha::Plugin::Test", method => 'report' }) eq "Koha::Plugin::Test::report", 'Test run plugin report method' );
  36
  37 my $metadata = $plugin->get_metadata();
  38 ok( $metadata->{'name'} eq 'Test Plugin', 'Test $plugin->get_metadata()' );
  39
  40 ok( $plugin->get_qualified_table_name('mytable') eq 'koha_plugin_test_mytable', 'Test $plugin->get_qualified_table_name()' );
  41 ok( $plugin->get_plugin_http_path() eq '/plugin/Koha/Plugin/Test', 'Test $plugin->get_plugin_http_path()' );