1 package MakeMaker::Test::Setup::Recurs;
5 @EXPORT = qw(setup_recurs teardown_recurs);
10 use MakeMaker::Test::Utils;
13 'Recurs/Makefile.PL' => <<'END',
14 use ExtUtils::MakeMaker;
22 'Recurs/prj2/Makefile.PL' => <<'END',
23 use ExtUtils::MakeMaker;
26 NAME => 'Recurs::prj2',
31 # Check if a test failure in a subdir causes make test to fail
32 'Recurs/prj2/t/fail.t' => <<'END',
42 chdir 'MM_TEST_ROOT:[t]' if $^O eq 'VMS';
44 while(my($file, $text) = each %Files) {
45 # Convert to a relative, native file path.
46 $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
48 my $dir = dirname($file);
50 open(FILE, ">$file") || die "Can't create $file: $!";
54 # ensure file at least 1 second old for makes that assume
55 # files with the same time are out of date.
56 my $time = calibrate_mtime();
57 utime $time, $time - 1, $file;
64 foreach my $file (keys %Files) {
65 my $dir = dirname($file);
67 rmtree($dir) || return;