gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 17880 - Add test to check version number comparison 

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit 2321ae0d79)
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
This commit is contained in:
David Cook 2017-01-12 11:14:34 +11:00 committed by Katrin Fischer
parent 5c9ef7c8ed
commit 7297157533
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
t/Installer_PerlModules.t
View File

@ -6,12 +6,22 @@
use strict;
use warnings;
use Test::More tests => 17;
use Test::More tests => 19;
BEGIN {
use_ok('C4::Installer::PerlModules');
}
$C4::Installer::PerlModules::PERL_DEPS->{'Local::Module::Sort'} = {
'required' => '1',
'min_ver' => '0.9.3',
'usage' => "Testing: make sure numbers are compared numerically and not lexicographically",
};
$Local::Module::Sort::VERSION = '0.9.13';
$INC{"Local/Module/Sort.pm"} = 1;
use_ok("Local::Module::Sort");
my $modules;
ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object');
my $prereq_pm = $modules->prereq_pm();
@ -37,3 +47,5 @@ my @module_list = $modules->module_list;
ok (exists($params{"DBI"}), 'DBI exists in array');
is ($modules->required('module'=>"String::Random"),1, 'String::Random should return 1 since required');
ok (!$modules->version_info(), "Testing empty modules");
is($modules->version_info('module'=>"Local::Module::Sort")->{"Local::Module::Sort"}->{"upgrade"},0,"Version 0.9.13 is greater than 0.9.3, so no upgrade needed");