Lines 5-27
Link Here
|
5 |
|
5 |
|
6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
7 |
|
7 |
|
8 |
use Test::More tests => 6; |
8 |
use Test::More tests => 3; |
|
|
9 |
use Test::Warn; |
9 |
|
10 |
|
10 |
BEGIN { |
11 |
BEGIN { |
11 |
use_ok('C4::Installer::PerlModules'); |
12 |
use_ok('C4::Installer::PerlModules'); |
12 |
} |
13 |
} |
13 |
|
14 |
|
14 |
my $modules; |
15 |
subtest 'prereq_pm' => sub { |
15 |
ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object'); |
16 |
my $modules; |
16 |
my $prereq_pm = $modules->prereq_pm(); |
17 |
ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object'); |
17 |
ok (exists($prereq_pm->{"DBI"}), 'DBI required for installer to run'); |
18 |
my $prereq_pm = $modules->prereq_pm(); |
18 |
ok (exists($prereq_pm->{"CGI"}), 'CGI required for installer to run' ); |
19 |
ok (exists($prereq_pm->{"DBI"}), 'DBI required for installer to run'); |
19 |
ok (exists($prereq_pm->{"YAML::XS"}), 'YAML::XS required for installer to run'); |
20 |
ok (exists($prereq_pm->{"CGI"}), 'CGI required for installer to run' ); |
|
|
21 |
ok (exists($prereq_pm->{"YAML::XS"}), 'YAML::XS required for installer to run'); |
22 |
}; |
20 |
|
23 |
|
21 |
subtest 'versions_info' => sub { |
24 |
subtest 'versions_info' => sub { |
22 |
plan tests => 4; |
25 |
plan tests => 5; |
23 |
my $modules = C4::Installer::PerlModules->new; |
26 |
my $modules = C4::Installer::PerlModules->new; |
24 |
$modules->versions_info; |
27 |
warning_is { $modules->versions_info } undef, 'No warnings from versions_info'; |
25 |
ok( exists $modules->{missing_pm}, 'versions_info fills the missing_pm key' ); |
28 |
ok( exists $modules->{missing_pm}, 'versions_info fills the missing_pm key' ); |
26 |
ok( exists $modules->{upgrade_pm}, 'versions_info fills the upgrade_pm key' ); |
29 |
ok( exists $modules->{upgrade_pm}, 'versions_info fills the upgrade_pm key' ); |
27 |
ok( exists $modules->{current_pm}, 'versions_info fills the current_pm key' ); |
30 |
ok( exists $modules->{current_pm}, 'versions_info fills the current_pm key' ); |