Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

THALJEF / Pinto-0.14 / t / 02-bowels / 42-install.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151

              
#!perl
use strict;
use warnings;
use Test::More;
use Test::File;
use Test::Exception;
use Path::Class qw(dir);
use Capture::Tiny qw(capture_stderr);
use lib 't/lib';
use Pinto::Tester;
use Pinto::Tester::Util qw(has_cpanm);
use Pinto::Constants qw($PINTO_MINIMUM_CPANM_VERSION);
use Pinto::Util qw(tempdir);
#------------------------------------------------------------------------------
# To prevent mucking with user's ~/.cpanm
local $ENV{PERL_CPANM_HOME} = tempdir->stringify();
#------------------------------------------------------------------------------
plan skip_all => "Need cpanm $PINTO_MINIMUM_CPANM_VERSION or newer"
    unless has_cpanm($PINTO_MINIMUM_CPANM_VERSION);
#------------------------------------------------------------------------------
my $t = Pinto::Tester->new;
$t->populate('JOHN/DistA-1 = PkgA~1 & PkgB~1; PkgC~1');
$t->populate('PAUL/DistB-1 = PkgB~1 & PkgD~2');
$t->populate('MARK/DistC-1 = PkgC~1');
$t->populate('MARK/DistC-2 = PkgC~2; PkgD~2');
#------------------------------------------------------------------------------
subtest 'Install from default stack' => sub {
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $stderr = capture_stderr {
        $t->run_ok( Install => { targets => ['PkgA'], %cpanm_opts } );
    };
    file_exists_ok( $p5_dir->file('PkgA.pm') );
    file_exists_ok( $p5_dir->file('PkgB.pm') );
    file_exists_ok( $p5_dir->file('PkgC.pm') );
    file_exists_ok( $p5_dir->file('PkgD.pm') );
};
#------------------------------------------------------------------------------
subtest 'Install from named stack' => sub {
    $t->run_ok( 'New' => { stack => 'dev' } );
    $t->run_ok( 'Pull' => { targets => 'PkgA', stack => 'dev' } );
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $stderr = capture_stderr {
        $t->run_ok( Install => { targets => ['PkgA'], stack => 'dev', %cpanm_opts } );
    };
    file_exists_ok( $p5_dir->file('PkgA.pm') );
    file_exists_ok( $p5_dir->file('PkgB.pm') );
    file_exists_ok( $p5_dir->file('PkgC.pm') );
    file_exists_ok( $p5_dir->file('PkgD.pm') );
};
#------------------------------------------------------------------------------
subtest 'Install a missing target' => sub {
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $stderr = capture_stderr {
        $t->run_throws_ok(
            Install => { targets => ['PkgZ'], %cpanm_opts },
            qr/Installation failed/
        );
    };
};
#------------------------------------------------------------------------------
subtest 'Install target with unusual author ID' => sub {
    # Versions of cpanm before 1.6916 could not handle short author ids or those
    # that contained numbers and hyphens.  But miyagawa agreed to support them
    # since they are allowed by CPAN::DistnameInfo.
    my $t = Pinto::Tester->new;
    $t->populate('FOO-22/DistA-1 = PkgA~1');
    $t->populate('FO/DistB-1 = PkgB~1');
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $stderr = capture_stderr {
        $t->run_ok( Install => { targets => ['PkgA'], %cpanm_opts } );
        $t->run_ok( Install => { targets => ['PkgB'], %cpanm_opts } );
    };
    file_exists_ok( $p5_dir->file('PkgA.pm') );
    file_exists_ok( $p5_dir->file('PkgB.pm') );
};
#------------------------------------------------------------------------------
local $TODO = 'Fails intermittently, not sure why';
subtest 'Install a core module' => sub {
    # The index for a stack contains all the core modules that
    # are in the target_perl_version, even though the repository
    # doesn't actually contain perl itself.  This allows installers
    # to cope with requests to install core modules.
    my $t = Pinto::Tester->new;
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    capture_stderr {
        $t->run_ok( Install => { targets => ['strict'], %cpanm_opts } );
    };
    file_not_exists_ok( $p5_dir->file('strict.pm') );
    # Inserting a dual-life module should replace the core one, and
    # cpanm should install it if the version is newer that core.
    $t->populate('AUTHOR/Strict-99 = strict~99');
    capture_stderr {
        $t->run_ok( Install => { targets => ['strict'], %cpanm_opts } );
    };
    file_exists_ok( $p5_dir->file('strict.pm') );
};
#------------------------------------------------------------------------------
# TODO: Install (and maybe pull) target with complex vreq
#------------------------------------------------------------------------------
done_testing;