lib/ExtUtils/t/basic.t

   1 #!/usr/bin/perl -w
   2
   3 # This test puts MakeMaker through the paces of a basic perl module
   4 # build, test and installation of the Big::Fat::Dummy module.
   5
   6 BEGIN {
   7     if( $ENV{PERL_CORE} ) {
   8         chdir 't' if -d 't';
   9         @INC = ('../lib', 'lib');
  10     }
  11     else {
  12         unshift @INC, 't/lib';
  13     }
  14 }
  15
  16 # The test logic is shared between MakeMaker and Install
  17 # because in MakeMaker we test aspects that we are uninterested
  18 # in with Install.pm, however MakeMaker needs to know if it
  19 # accidentally breaks Install. So we have this two stage test file
  20 # thing happening.
  21
  22 # This version is distinct to MakeMaker and the core.
  23
  24 use vars qw/$TESTS $TEST_INSTALL_ONLY/;
  25 use Cwd qw(cwd);
  26
  27 $::TESTS= 55 + 30;
  28 $::TEST_INSTALL_ONLY= 0;
  29
  30 (my $start=$0)=~s/\.t$/.pl/;
  31 (my $finish=$start)=~s/\.pl$/_finish.pl/;
  32 my $code;
  33 for my $file ($start,$finish) {
  34     open my $fh,$file or die "Failed to read: $file";
  35     $code .= do {
  36         local $/;
  37         <$fh>;
  38     };
  39     close $fh;
  40     $code .= "\n;\n";
  41 }
  42 eval $code or die $@,$code;
  43