[ DynamicPrereqs => {
-raw => [
q|if (isnt_os('bunk')) {|,
q|$WriteMakefileArgs{PREREQ_PM}{strict} = substr('123
modified file');
unlike($makefile, qr/\t/m, 'no tabs in modified file');
isnt(
index(
$makefile,
"if (isnt_os('bunk')) {\n\$WriteMakefileArgs{PREREQ_PM}{strict} = substr('123', 0,
icPrereqs $Dist::Zilla::Plugin::DynamicPrereqs::VERSION
sub isnt_os \{
(^ [^\n]+\n)+\}\n\z/sm,
"Makefile.PL contains definition for isnt_os(), and no other subs",
);
run_makemaker($tzil);
{
g whitespace in modified file');
unlike($makefile, qr/\t/m, 'no tabs in modified file');
isnt(
index(
$makefile,
"if (1 == 1) {\n" . join("\n", map $_.q|('stri
,
),
-1,
'Makefile.PL condition and raw clauses are correct',
);
isnt(
index($makefile, "\nsub $_ {"),
-1,
"Makefile.PL contains definition for
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
=~ s/__DEFINITION__\n/$definitions/;
my $included_subs_index = index($makefile, $expected_subs);
isnt(
$included_subs_index,
-1,
'sub referenced in conditional is inserted from sharedir f
r/\t/m, 'no tabs in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
SIX;
}
sub foo {
bar();
}
CONTENT
my $included_subs_index = index($makefile, $expected_subs);
isnt(
$included_subs_index,
-1,
'requested included_sub, and its dependencies, inserted fr
'no tabs in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plu
ion
sub foo {
1;
}
CONTENT
my $included_subs_index = index($makefile, $expected_subs);
isnt(
$included_subs_index,
-1,
'requested included_sub inserted from sharedir
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
trailing whitespace in modified file');
unlike($makefile, qr/\t/m, 'no tabs in modified file');
isnt(
index($makefile, "sub $_ {"),
-1,
"Makefile.PL contains definition for $_()",
) fore
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic
iling whitespace in modified file');
my $version = Dist::Zilla::Plugin::DynamicPrereqs->VERSION;
isnt(
index(
$makefile,
<<CONTENT),
);
# inserted by Dist::Zilla::Plugin::Dynamic