unshift @INC, 't/lib';
}
}
-$ENV{PERL_CORE} ? chdir '../lib/ExtUtils/t' : chdir 't';
use strict;
-use Test::More tests => 15;
+use Test::More tests => 17;
use MakeMaker::Test::Utils;
use File::Spec;
use TieOut;
-my $perl = which_perl;
+my $perl = which_perl();
+
+$ENV{PERL_CORE} ? chdir '../lib/ExtUtils/t' : chdir 't';
+
perl_lib;
+my $Touch_Time = calibrate_mtime();
+
$| = 1;
ok( chdir 'Big-Fat-Dummy', "chdir'd to Big-Fat-Dummy" ) ||
diag("chdir failed: $!");
+
+# The perl core test suite will run any .t file in the MANIFEST.
+# So we have to generate this on the fly.
+mkdir 't' || die "Can't create test dir: $!";
+open(TEST, ">t/compile.t") or die "Can't open t/compile.t: $!";
+print TEST <<'COMPILE_T';
+print "1..2\n";
+
+print eval "use Big::Fat::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
+print "ok 2 - TEST_VERBOSE\n";
+COMPILE_T
+close TEST;
+
+mkdir 'Liar/t' || die "Can't create test dir: $!";
+open(TEST, ">Liar/t/sanity.t") or die "Can't open Liar/t/sanity.t: $!";
+print TEST <<'SANITY_T';
+print "1..3\n";
+
+print eval "use Big::Fat::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
+print eval "use Big::Fat::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
+print "ok 3 - TEST_VERBOSE\n";
+SANITY_T
+close TEST;
+
+END { unlink 't/compile.t', 'Liar/t/sanity.t' }
+
my @mpl_out = `$perl Makefile.PL PREFIX=dummy-install`;
cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
ok( -e $makefile, 'Makefile exists' );
-# -M is flakey on VMS.
+# -M is flakey on VMS
my $mtime = (stat($makefile))[9];
-ok( ($^T - $mtime) <= 0, ' its been touched' );
+cmp_ok( $Touch_Time, '<=', $mtime, ' its been touched' );
END { unlink makefile_name(), makefile_backup() }
-# Supress 'make manifest' noise
-open(SAVERR, ">&STDERR") || die $!;
-close(STDERR);
my $make = make_run();
-my $manifest_out = `$make manifest`;
-ok( -e 'MANIFEST', 'make manifest created a MANIFEST' );
-ok( -s 'MANIFEST', ' its not empty' );
-open(STDERR, ">&SAVERR") || die $!;
+
+{
+ # Supress 'make manifest' noise
+ local $ENV{PERL_MM_MANIFEST_VERBOSE} = 0;
+ my $manifest_out = `$make manifest`;
+ ok( -e 'MANIFEST', 'make manifest created a MANIFEST' );
+ ok( -s 'MANIFEST', ' its not empty' );
+}
END { unlink 'MANIFEST'; }
my $dist_test_out = `$make disttest`;
is( $?, 0, 'disttest' ) || diag($dist_test_out);
+
+# Make sure init_dirscan doesn't go into the distdir
+@mpl_out = `$perl Makefile.PL "PREFIX=dummy-install"`;
+
+cmp_ok( $?, '==', 0, 'Makefile.PL exited with zero' ) ||
+ diag(@mpl_out);
+
+ok( grep(/^Writing $makefile for Big::Fat::Dummy/,
+ @mpl_out) == 1,
+ 'init_dirscan skipped distdir') ||
+ diag(@mpl_out);
+
+# I know we'll get ignored errors from make here, that's ok.
+# Send STDERR off to oblivion.
+open(SAVERR, ">&STDERR") or die $!;
+open(STDERR, ">".File::Spec->devnull) or die $!;
+
my $realclean_out = `$make realclean`;
is( $?, 0, 'realclean' ) || diag($realclean_out);
+open(STDERR, ">&SAVERR") or die $!;
close SAVERR;