Lines 18-24
use Modern::Perl;
Link Here
|
18 |
|
18 |
|
19 |
use Archive::Extract; |
19 |
use Archive::Extract; |
20 |
use CGI; |
20 |
use CGI; |
|
|
21 |
use Cwd qw(abs_path); |
21 |
use File::Basename; |
22 |
use File::Basename; |
|
|
23 |
use File::Spec; |
22 |
use File::Temp qw( tempdir tempfile ); |
24 |
use File::Temp qw( tempdir tempfile ); |
23 |
use FindBin qw($Bin); |
25 |
use FindBin qw($Bin); |
24 |
use Module::Load::Conditional qw(can_load); |
26 |
use Module::Load::Conditional qw(can_load); |
Lines 88-114
subtest 'Version upgrade tests' => sub {
Link Here
|
88 |
$schema->storage->txn_rollback; |
90 |
$schema->storage->txn_rollback; |
89 |
}; |
91 |
}; |
90 |
|
92 |
|
91 |
subtest 'Version upgrade tests' => sub { |
|
|
92 |
|
93 |
plan tests => 1; |
94 |
|
95 |
$schema->storage->txn_begin; |
96 |
|
97 |
my $plugin = Koha::Plugin::Test->new( { enable_plugins => 1, cgi => CGI->new } ); |
98 |
|
99 |
# make sure there's no version on the DB |
100 |
$schema->resultset('PluginData') |
101 |
->search( { plugin_class => $plugin->{class}, plugin_key => '__INSTALLED_VERSION__' } ) |
102 |
->delete; |
103 |
|
104 |
$plugin = Koha::Plugin::Test->new( { enable_plugins => 1, cgi => CGI->new } ); |
105 |
my $version = $plugin->retrieve_data('__INSTALLED_VERSION__'); |
106 |
|
107 |
is( $version, $plugin->get_metadata->{version}, 'Version has been populated correctly' ); |
108 |
|
109 |
$schema->storage->txn_rollback; |
110 |
}; |
111 |
|
112 |
$schema->storage->txn_begin; |
93 |
$schema->storage->txn_begin; |
113 |
Koha::Plugins::Methods->delete; |
94 |
Koha::Plugins::Methods->delete; |
114 |
|
95 |
|
Lines 272-277
subtest 'Test _version_compare' => sub {
Link Here
|
272 |
is( Koha::Plugins::Base::_version_compare( '1.0', '1.0.0' ), 0, "1.0 is equal to 1.0.0" ); |
253 |
is( Koha::Plugins::Base::_version_compare( '1.0', '1.0.0' ), 0, "1.0 is equal to 1.0.0" ); |
273 |
}; |
254 |
}; |
274 |
|
255 |
|
|
|
256 |
subtest 'bundle_path() tests' => sub { |
257 |
|
258 |
plan tests => 1; |
259 |
|
260 |
t::lib::Mocks::mock_config( 'enable_plugins', 1 ); |
261 |
|
262 |
my @current_dir = File::Spec->splitdir(abs_path(__FILE__)); |
263 |
# remote Plugins.t |
264 |
pop @current_dir; |
265 |
# remove db_dependent |
266 |
pop @current_dir; |
267 |
|
268 |
my $plugin = Koha::Plugin::Test->new; |
269 |
|
270 |
is( $plugin->bundle_path, File::Spec->catdir(@current_dir) . '/lib/Koha/Plugin/Test' ); |
271 |
|
272 |
}; |
273 |
|
275 |
subtest 'new() tests' => sub { |
274 |
subtest 'new() tests' => sub { |
276 |
|
275 |
|
277 |
plan tests => 2; |
276 |
plan tests => 2; |
Lines 286-289
subtest 'new() tests' => sub {
Link Here
|
286 |
is( ref($result), 'Koha::Plugins', 'calling new with enable_plugins makes it override the config' ); |
285 |
is( ref($result), 'Koha::Plugins', 'calling new with enable_plugins makes it override the config' ); |
287 |
}; |
286 |
}; |
288 |
|
287 |
|
289 |
$schema->storage->txn_rollback; |
288 |
$schema->storage->txn_rollback; |
290 |
- |
|
|