recurs.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# This tests MakeMaker against recursive builds
BEGIN {
chdir 't' if -d 't';
}
else {
}
}
use strict;
use Config;
# 'make disttest' sets a bunch of environment variables which interfere
# with our testing.
chdir('t');
$| = 1;
END {
}
diag("chdir failed: $!");
# Check recursive Makefile building.
my @mpl_out = run(qq{$perl Makefile.PL});
diag(@mpl_out);
my $makefile = makefile_name();
my $make = make_run();
run("$make");
ok( chdir File::Spec->updir );
# Check NORECURS
diag("chdir failed: $!");
# [rt.perl.org 4345]
{ local $/;
like( <MAKEFILE>, qr/^\s*INST_SCRIPT\s*=\s*\Q$inst_script\E/m,
'prepend .. not stomping WriteMakefile args' )
}