eval
{ rmtree(
'dist'
) };
unless
( -e
'have_make'
) {
plan
skip_all
=>
'No network tests'
;
}
plan
tests
=> 2;
my
$make
=
$Config
{make};
mkdir
'dist'
or
die
"$!\n"
;
chdir
'dist'
or
die
"$!\n"
;
open
MFPL,
'>Makefile.PL'
or
die
"$!\n"
;
print
MFPL
<<'EOF';
use if ! ( grep { $_ eq '.' } @INC ), qw[lib .];
use strict;
use inc::Module::Install;
name 'Foo-Bar';
version '0.01';
author 'Foo Bar';
abstract 'This module does something';
license 'perl';
no_auto_test;
WriteAll;
EOF
close
MFPL;
my
$merged
= capture_merged {
system
"$^X Makefile.PL"
};
diag(
"$merged"
);
my
@tests
= (
'inc/Module/Install/NoAutomatedTesting.pm'
,
);
ok( -e
$_
,
"Exists: '$_'"
)
for
@tests
;
my
$manifest
= capture_merged {
system
"$make manifest"
};
diag(
"$manifest"
);
my
$distdir
= capture_merged {
system
"$make distdir"
};
diag(
"$distdir"
);
$ENV
{AUTOMATED_TESTING} = 1;
chdir
'Foo-Bar-0.01'
or
die
"$!\n!"
;
my
$foobar
= capture_merged {
system
"$^X Makefile.PL"
};
diag(
"$foobar"
);
ok( !
$foobar
,
'No output from Makefile.PL'
);