3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Test::More tests => 2;
27 use JSON::Validator::OpenAPI::Mojolicious;
29 # Dummy app for testing the plugin
30 use Mojolicious::Lite;
33 # Mock pluginsdir before loading Plugins module
34 my $path = dirname(__FILE__) . '/../../../../lib';
35 t::lib::Mocks::mock_config( 'pluginsdir', $path );
41 my $schema = Koha::Database->new->schema;
43 subtest 'Bad plugins tests' => sub {
47 $schema->storage->txn_begin;
50 t::lib::Mocks::mock_config( 'enable_plugins', 1 );
51 t::lib::Mocks::mock_preference( 'UseKohaPlugins', 1 );
53 my @plugins = Koha::Plugins->new->GetPlugins( { all => 1 } );
54 foreach my $plugin (@plugins) {
58 # initialize Koha::REST::V1 after mocking
61 { $t = Test::Mojo->new('Koha::REST::V1'); }
62 'The resulting spec is invalid. Skipping Bad API Route Plugin',
63 'Bad plugins raise warning';
65 my $routes = get_defined_routes($t);
66 ok( !exists $routes->{'/contrib/badass/patrons/(:patron_id)/bother_wrong'}, 'Route doesn\'t exist' );
67 ok( exists $routes->{'/contrib/testplugin/patrons/(:patron_id)/bother'}, 'Route exists' );
69 $schema->storage->txn_rollback;
72 subtest 'Disabled plugins tests' => sub {
76 $schema->storage->txn_begin;
79 t::lib::Mocks::mock_config( 'enable_plugins', 1 );
80 t::lib::Mocks::mock_preference( 'UseKohaPlugins', 1 );
84 my @plugins = Koha::Plugins->new->GetPlugins( { all => 1 } );
85 foreach my $plugin (@plugins) {
87 $good_plugin = $plugin
88 if $plugin->{metadata}->{description} eq 'Test plugin';
91 # initialize Koha::REST::V1 after mocking
92 my $t = Test::Mojo->new('Koha::REST::V1');
94 my $routes = get_defined_routes($t);
95 ok( !exists $routes->{'/contrib/testplugin/patrons/(:patron_id)/bother'},
96 'Plugin disabled, route not defined' );
100 $t = Test::Mojo->new('Koha::REST::V1');
101 $routes = get_defined_routes($t);
103 ok( exists $routes->{'/contrib/testplugin/patrons/(:patron_id)/bother'},
104 'Plugin enabled, route defined' );
106 $schema->storage->txn_rollback;
109 sub get_defined_routes {
112 traverse_routes( $_, 0, $routes ) for @{ $t->app->routes->children };
117 sub traverse_routes {
118 my ( $route, $depth, $routes ) = @_;
121 my $path = $route->pattern->unparsed || '/';
124 my $via = $route->via;
125 my $verb = !$via ? '*' : uc join ',', @$via;
126 $routes->{$path}->{$verb} = 1;
129 traverse_routes( $_, $depth, $routes ) for @{ $route->children };