00setup_dummy.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
BEGIN {
}
else {
}
}
chdir 't';
use strict;
# On older systems we might exceed the 8-level directory depth limit
# imposed by RMS. We get around this with a rooted logical, but we
# can't create logical names with attributes in Perl, so we do it
# in a DCL subprocess and put it in the job table so the parent sees it.
$ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED BFD_TEST_ROOT 'BFD_TEST_ROOT'
}
my %Files = (
$VERSION = 0.01;
=cut
1;
END
use ExtUtils::MakeMaker;
# This will interfere with the PREREQ_PRINT tests.
printf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/;
WriteMakefile(
PREREQ_PM => { strict => 0 },
);
END
print "1..2\n";
print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
print "ok 2 - TEST_VERBOSE\n";
END
print "1..3\n";
print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
print "ok 3 - TEST_VERBOSE\n";
END
package Big::Liar;
$VERSION = 0.01;
1;
END
use ExtUtils::MakeMaker;
my $mm = WriteMakefile(
_KEEP_AFTER_FLUSH => 1
);
foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
}
END
'Problem-Module/Makefile.PL' => <<'END',
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'Problem::Module',
);
END
'Problem-Module/subdir/Makefile.PL' => <<'END',
END
);
# Convert to a relative, native file path.
mkpath $dir;
print FILE $text;
close FILE;
}