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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
use strict;
use warnings;
use Test::More 0.96;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Fatal;
use Test::DZil;
use Test::Deep;
use Path::Tiny 0.062;
{
package Dist::Zilla::Plugin::BogusInstaller;
use Moose;
with 'Dist::Zilla::Role::InstallTool';
sub setup_installer { }
}
{
my $tzil = Builder->from_config(
{ dist_root => 'does-not-exist' },
{
add_files => {
path(qw(source dist.ini)) => simple_ini(
'BogusInstaller',
'MakeMaker::Fallback',
),
},
},
);
$tzil->chrome->logger->set_debug(1);
like(
exception { $tzil->build },
qr/\Q[MakeMaker::Fallback] No Build.PL found to fall back from!\E/,
'build aborted when no additional installer is provided',
);
diag 'got log messages: ', explain $tzil->log_messages
if not Test::Builder->new->is_passing;
}
foreach my $eumm_version ('6.00', '6.01', '0', '6.55_02') {
my $tzil = Builder->from_config(
{ dist_root => 'does-not-exist' },
{
add_files => {
path(qw(source dist.ini)) => simple_ini(
# in [MakeMaker] 5.019 and earlier, this defaults to 6.30,
# and must be set to a number (not empty string) for
# Makefile.PL to come out right.
[ 'MakeMaker::Fallback' => { eumm_version => $eumm_version } ],
[ 'ModuleBuildTiny' => { version => 0 } ],
[ Prereqs => ConfigureRequires => { perl => '5.006' } ],
),
},
},
);
$tzil->chrome->logger->set_debug(1);
is(
exception { $tzil->build },
undef,
'build proceeds normally',
);
cmp_deeply(
$tzil->distmeta,
superhashof({
prereqs => superhashof({
configure => {
requires => {
'ExtUtils::MakeMaker' => ignore,
'Module::Build::Tiny' => ignore,
'perl' => '5.006',
},
},
}),
}),
'ExtUtils::MakeMaker is not included in configure requires',
) or diag 'got metadata: ', explain $tzil->distmeta;
my $build_dir = path($tzil->tempdir)->child('build');
my @expected_files = qw(
Build.PL
Makefile.PL
);
my @found_files;
$build_dir->visit(
sub { push @found_files, $_->relative($build_dir)->stringify if -f },
{ recurse => 1 },
);
cmp_deeply(
\@found_files,
bag(@expected_files),
'both Makefile.PL and Build.PL are generated',
);
my $Makefile_PL = path($tzil->tempdir)->child('build', 'Makefile.PL');
my $Makefile_PL_content = $Makefile_PL->slurp_utf8;
unlike($Makefile_PL_content, qr/[^\S\n]\n/, 'no trailing whitespace in generated Makefile.PL');
my $preamble = join('', <*Dist::Zilla::Plugin::MakeMaker::Fallback::DATA>);
like($Makefile_PL_content, qr/\Q$preamble\E/ms, 'preamble is found in Makefile.PL');
like(
$Makefile_PL_content,
qr/^# This Makefile\.PL for .*
^# Don't edit it but the dist\.ini .*
^use strict;
^use warnings;/ms,
'header is present',
);
unlike(
$Makefile_PL_content,
qr/^[^#]*use\s+ExtUtils::MakeMaker\s/m,
'ExtUtils::MakeMaker not used with VERSION (when '
. ($eumm_version ? 'a' : 'no')
. ' eumm_version was specified)',
);
like(
$Makefile_PL_content,
qr/^use ExtUtils::MakeMaker;$/m,
'ExtUtils::MakeMaker is still used (when '
. ($eumm_version ? 'a' : 'no')
. ' eumm_version was specified)',
);
SKIP: {
ok($Makefile_PL_content =~ /^my %configure_requires = \($/mg, 'found start of %configure_requires declaration')
or skip 'failed to test %configure_requires section', 2;
skip 'versions of Dist::Zilla::Plugin::MakeMaker::Awesome before 0.44 did not strip underscores from prereq versions', 2
if $Makefile_PL_content =~ /(['"])ExtUtils::MakeMaker\1\s+=>\s+\1[\d.]+_/m;
my $start = pos($Makefile_PL_content);
ok($Makefile_PL_content =~ /\);$/mg, 'found end of %configure_requires declaration')
or skip 'failed to test %configure_requires section', 1;
my $end = pos($Makefile_PL_content);
my $configure_requires_content = substr($Makefile_PL_content, $start, $end - $start - 2);
my %configure_requires = %{ $tzil->distmeta->{prereqs}{configure}{requires} };
foreach my $prereq (sort keys %configure_requires) {
if ($prereq eq 'perl') {
unlike(
$configure_requires_content,
qr/perl/m,
'%configure_requires does not contain perl',
);
}
else {
like(
$configure_requires_content,
qr/$prereq\W+$configure_requires{$prereq}\W/m,
"\%configure_requires contains $prereq => $configure_requires{$prereq}",
);
}
}
}
subtest 'ExtUtils::MakeMaker->VERSION not asserted (outside of an eval) either' => sub {
while ($Makefile_PL_content =~ /^(.*)ExtUtils::MakeMaker\s*->\s*VERSION\s*\(\s*([\d._]+)\s*\)/mg) {
like($1, qr/eval/, 'VERSION assertion (on ' . $2 . ') done inside an eval');
}
pass 'no-op';
};
diag 'got log messages: ', explain $tzil->log_messages
if not Test::Builder->new->is_passing;
}
done_testing;
|
