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

(-)a/t/Installer_PerlModules.t (-9 / +12 lines)
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' );
(-)a/t/Installer_pm.t (-16 lines)
Lines 1-15 Link Here
1
#!/usr/bin/perl
2
#
3
use strict;
4
use warnings;
5
6
use Test::More tests => 2;
7
use Data::Dumper;
8
9
BEGIN {
10
    use_ok('C4::Installer::PerlModules');
11
}
12
13
my $obj = C4::Installer::PerlModules->new;
14
15
isa_ok($obj,'C4::Installer::PerlModules');
16
- 

Return to bug 30731