4 if( $ENV{PERL_CORE} ) {
5 @INC = ('../lib', 'lib');
14 use Test::More tests => 9;
20 # On older systems we might exceed the 8-level directory depth limit
21 # imposed by RMS. We get around this with a rooted logical, but we
22 # can't create logical names with attributes in Perl, so we do it
23 # in a DCL subprocess and put it in the job table so the parent sees it.
24 open( BFDTMP, '>bfdtesttmp.com' ) || die "Error creating command file; $!";
25 print BFDTMP <<'COMMAND';
26 $ BFD_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
27 $ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED BFD_TEST_ROOT 'BFD_TEST_ROOT'
31 system '@bfdtesttmp.com';
32 1 while unlink 'bfdtesttmp.com';
37 'Big-Dummy/lib/Big/Dummy.pm' => <<'END',
44 Big::Dummy - Try "our" hot dog's
51 'Big-Dummy/Makefile.PL' => <<'END',
52 use ExtUtils::MakeMaker;
54 # This will interfere with the PREREQ_PRINT tests.
55 printf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/;
59 VERSION_FROM => 'lib/Big/Dummy.pm',
60 PREREQ_PM => { strict => 0 },
61 ABSTRACT_FROM => 'lib/Big/Dummy.pm',
62 AUTHOR => 'Michael G Schwern <schwern@pobox.com>',
66 'Big-Dummy/t/compile.t' => <<'END',
69 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
70 print "ok 2 - TEST_VERBOSE\n";
73 'Big-Dummy/Liar/t/sanity.t' => <<'END',
76 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
77 print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
78 print "ok 3 - TEST_VERBOSE\n";
81 'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
89 'Big-Dummy/Liar/Makefile.PL' => <<'END',
90 use ExtUtils::MakeMaker;
92 my $mm = WriteMakefile(
94 VERSION_FROM => 'lib/Big/Liar.pm',
95 _KEEP_AFTER_FLUSH => 1
98 print "Big::Liar's vars\n";
99 foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
100 print "$key = $mm->{$key}\n";
104 'Problem-Module/Makefile.PL' => <<'END',
105 use ExtUtils::MakeMaker;
108 NAME => 'Problem::Module',
112 'Problem-Module/subdir/Makefile.PL' => <<'END',
113 printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
115 warn "I think I'm going to be sick\n";
121 while(my($file, $text) = each %Files) {
122 # Convert to a relative, native file path.
123 $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
125 my $dir = dirname($file);
127 open(FILE, ">$file");
131 ok( -e $file, "$file created" );