4 if( $ENV{PERL_CORE} ) {
5 @INC = ('../lib', 'lib');
14 use Test::More tests => 9;
15 use File::Spec::Functions;
20 catfile(curdir(),'Big-Dummy','lib','Big','Dummy.pm') => <<'END',
28 catfile(curdir(),'Big-Dummy','Makefile.PL') => <<'END',
29 use ExtUtils::MakeMaker;
31 printf "Current package is: %s\n", __PACKAGE__;
35 VERSION_FROM => 'lib/Big/Dummy.pm',
40 catfile(curdir(),'Big-Dummy','t','compile.t') => <<'END',
43 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
44 print "ok 2 - TEST_VERBOSE\n";
47 catfile(curdir(),'Big-Dummy','Liar','t','sanity.t') => <<'END',
50 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
51 print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
52 print "ok 3 - TEST_VERBOSE\n";
55 catfile(curdir(),'Big-Dummy','Liar','lib','Big','Liar.pm') => <<'END',
63 catfile(curdir(),'Big-Dummy','Liar','Makefile.PL') => <<'END',
64 use ExtUtils::MakeMaker;
66 my $mm = WriteMakefile(
68 VERSION_FROM => 'lib/Big/Liar.pm',
69 _KEEP_AFTER_FLUSH => 1
72 print "Big::Liar's vars\n";
73 foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
74 print "$key = $mm->{$key}\n";
78 catfile(curdir(),'Problem-Module','Makefile.PL') => <<'END',
79 use ExtUtils::MakeMaker;
82 NAME => 'Problem::Module',
86 catfile(curdir(),'Problem-Module','subdir','Makefile.PL') => <<'END',
87 printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
89 warn "I think I'm going to be sick\n";
95 while(my($file, $text) = each %Files) {
96 my $dir = dirname($file);
102 ok( -e $file, "$file created" );