lib/ExtUtils/t/00setup_dummy.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         @INC = ('../lib', 'lib');
   6     }
   7     else {
   8         unshift @INC, 't/lib';
   9     }
  10 }
  11 chdir 't';
  12
  13 use strict;
  14 use Test::More tests => 9;
  15 use File::Spec::Functions;
  16 use File::Path;
  17 use File::Basename;
  18
  19 my %Files = (
  20              catfile(curdir(),'Big-Dummy','lib','Big','Dummy.pm')     => <<'END',
  21 package Big::Dummy;
  22
  23 $VERSION = 0.01;
  24
  25 1;
  26 END
  27
  28              catfile(curdir(),'Big-Dummy','Makefile.PL')          => <<'END',
  29 use ExtUtils::MakeMaker;
  30
  31 printf "Current package is: %s\n", __PACKAGE__;
  32
  33 WriteMakefile(
  34     NAME          => 'Big::Dummy',
  35     VERSION_FROM  => 'lib/Big/Dummy.pm',
  36     PREREQ_PM     => {},
  37 );
  38 END
  39
  40              catfile(curdir(),'Big-Dummy','t','compile.t')          => <<'END',
  41 print "1..2\n";
  42
  43 print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
  44 print "ok 2 - TEST_VERBOSE\n";
  45 END
  46
  47              catfile(curdir(),'Big-Dummy','Liar','t','sanity.t')      => <<'END',
  48 print "1..3\n";
  49
  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";
  53 END
  54
  55              catfile(curdir(),'Big-Dummy','Liar','lib','Big','Liar.pm') => <<'END',
  56 package Big::Liar;
  57
  58 $VERSION = 0.01;
  59
  60 1;
  61 END
  62
  63              catfile(curdir(),'Big-Dummy','Liar','Makefile.PL')     => <<'END',
  64 use ExtUtils::MakeMaker;
  65
  66 my $mm = WriteMakefile(
  67               NAME => 'Big::Liar',
  68               VERSION_FROM => 'lib/Big/Liar.pm',
  69               _KEEP_AFTER_FLUSH => 1
  70              );
  71
  72 print "Big::Liar's vars\n";
  73 foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
  74     print "$key = $mm->{$key}\n";
  75 }
  76 END
  77
  78              catfile(curdir(),'Problem-Module','Makefile.PL')   => <<'END',
  79 use ExtUtils::MakeMaker;
  80
  81 WriteMakefile(
  82     NAME    => 'Problem::Module',
  83 );
  84 END
  85
  86              catfile(curdir(),'Problem-Module','subdir','Makefile.PL')    => <<'END',
  87 printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
  88
  89 warn "I think I'm going to be sick\n";
  90 die "YYYAaaaakkk\n";
  91 END
  92
  93             );
  94
  95 while(my($file, $text) = each %Files) {
  96     my $dir = dirname($file);
  97     mkpath $dir;
  98     open(FILE, ">$file");
  99     print FILE $text;
 100     close FILE;
 101
 102     ok( -e $file, "$file created" );
 103 }
 104
 105
 106 pass("Setup done");