View | Details | Raw Unified | Return to bug 17880
Collapse All | Expand All

(-)a/t/Installer_PerlModules.t (-2 / +13 lines)
Lines 6-17 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 17;
9
use Test::More tests => 19;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::Installer::PerlModules');
12
        use_ok('C4::Installer::PerlModules');
13
}
13
}
14
14
15
$C4::Installer::PerlModules::PERL_DEPS->{'Local::Module::Sort'} = {
16
    'required' => '1',
17
    'min_ver' => '0.9.3',
18
    'usage' => "Testing: make sure numbers are compared numerically and not lexicographically",
19
};
20
21
$Local::Module::Sort::VERSION = '0.9.13';
22
$INC{"Local/Module/Sort.pm"} = 1;
23
use_ok("Local::Module::Sort");
24
15
my $modules;
25
my $modules;
16
ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object');
26
ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object');
17
my $prereq_pm = $modules->prereq_pm();
27
my $prereq_pm = $modules->prereq_pm();
Lines 37-39 my @module_list = $modules->module_list; Link Here
37
ok (exists($params{"DBI"}), 'DBI exists in array');
47
ok (exists($params{"DBI"}), 'DBI exists in array');
38
is ($modules->required('module'=>"String::Random"),1, 'String::Random should return 1 since required');
48
is ($modules->required('module'=>"String::Random"),1, 'String::Random should return 1 since required');
39
ok (!$modules->version_info(), "Testing empty modules");
49
ok (!$modules->version_info(), "Testing empty modules");
40
- 
50
51
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");

Return to bug 17880