|
Lines 4-15
use Modern::Perl;
Link Here
|
| 4 |
|
4 |
|
| 5 |
use Archive::Extract; |
5 |
use Archive::Extract; |
| 6 |
use CGI; |
6 |
use CGI; |
|
|
7 |
use Cwd qw(abs_path); |
| 7 |
use File::Basename; |
8 |
use File::Basename; |
|
|
9 |
use File::Spec; |
| 8 |
use File::Temp qw( tempdir tempfile ); |
10 |
use File::Temp qw( tempdir tempfile ); |
| 9 |
use FindBin qw($Bin); |
11 |
use FindBin qw($Bin); |
| 10 |
use Module::Load::Conditional qw(can_load); |
12 |
use Module::Load::Conditional qw(can_load); |
| 11 |
use Test::MockModule; |
13 |
use Test::MockModule; |
| 12 |
use Test::More tests => 42; |
14 |
use Test::More tests => 43; |
| 13 |
|
15 |
|
| 14 |
use C4::Context; |
16 |
use C4::Context; |
| 15 |
use Koha::Database; |
17 |
use Koha::Database; |
|
Lines 193-195
subtest 'Test _version_compare' => sub {
Link Here
|
| 193 |
is( Koha::Plugins::Base::_version_compare( '1', '1.0.0' ), 0, "1 is equal to 1.0.0" ); |
195 |
is( Koha::Plugins::Base::_version_compare( '1', '1.0.0' ), 0, "1 is equal to 1.0.0" ); |
| 194 |
is( Koha::Plugins::Base::_version_compare( '1.0', '1.0.0' ), 0, "1.0 is equal to 1.0.0" ); |
196 |
is( Koha::Plugins::Base::_version_compare( '1.0', '1.0.0' ), 0, "1.0 is equal to 1.0.0" ); |
| 195 |
}; |
197 |
}; |
| 196 |
- |
198 |
|
|
|
199 |
subtest 'bundle_path() tests' => sub { |
| 200 |
|
| 201 |
plan tests => 1; |
| 202 |
|
| 203 |
t::lib::Mocks::mock_config( 'enable_plugins', 1 ); |
| 204 |
|
| 205 |
my @current_dir = File::Spec->splitdir(abs_path(__FILE__)); |
| 206 |
# remote Plugins.t |
| 207 |
pop @current_dir; |
| 208 |
# remove db_dependent |
| 209 |
pop @current_dir; |
| 210 |
|
| 211 |
my $plugin = Koha::Plugin::Test->new; |
| 212 |
|
| 213 |
is( $plugin->bundle_path, File::Spec->catdir(@current_dir) . '/lib/Koha/Plugin/Test' ); |
| 214 |
|
| 215 |
}; |