4 if( $ENV{PERL_CORE} ) {
5 @INC = ('../lib', 'lib');
14 use Test::More tests => 7;
19 'Big-Dummy/lib/Big/Dummy.pm' => <<'END',
27 'Big-Dummy/Makefile.PL' => <<'END',
28 use ExtUtils::MakeMaker;
30 printf "Current package is: %s\n", __PACKAGE__;
34 VERSION_FROM => 'lib/Big/Dummy.pm',
39 'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
47 'Big-Dummy/Liar/Makefile.PL' => <<'END',
48 use ExtUtils::MakeMaker;
50 my $mm = WriteMakefile(
52 VERSION_FROM => 'lib/Big/Liar.pm',
53 _KEEP_AFTER_FLUSH => 1
56 print "Big::Liar's vars\n";
57 foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
58 print "$key = $mm->{$key}\n";
62 'Problem-Module/Makefile.PL' => <<'END',
63 use ExtUtils::MakeMaker;
66 NAME => 'Problem::Module',
70 'Problem-Module/subdir/Makefile.PL' => <<'END',
71 printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
73 warn "I think I'm going to be sick\n";
79 while(my($file, $text) = each %Files) {
80 my $dir = dirname($file);
86 ok( -e $file, "$file created" );