t/harness

   1 #!./perl
   2
   3 # We suppose that perl _mostly_ works at this moment, so may use
   4 # sophisticated testing.
   5
   6 BEGIN {
   7     chdir 't' if -d 't';
   8     unshift @INC, '../lib';
   9     $ENV{PERL5LIB} = '../lib';    # so children will see it too
  10 }
  11 use lib '../lib';
  12
  13 use Test::Harness;
  14
  15 $Test::Harness::switches = "";    # Too much noise otherwise
  16 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
  17
  18 @tests = @ARGV;
  19 @tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
  20
  21 Test::Harness::runtests @tests;
  22 exit(0) unless -e "../testcompile";
  23
  24 #fudge DATA for now.
  25 %infinite =  qw (
  26         op/bop.t        1
  27         lib/hostname.t  1
  28         );
  29
  30 %datahandle = qw(
  31         lib/bigint.t        1
  32         lib/bigintpm.t      1
  33         lib/bigfloat.t      1
  34         lib/bigfloatpm.t    1
  35         );
  36
  37 my $dhwrapper = <<'EOT';
  38 open DATA,"<".__FILE__;
  39 until (($_=<DATA>) =~ /^__END__/) {};
  40 EOT
  41
  42 @tests = grep (!$infinite{$_}, @tests);
  43 @tests = map {
  44          my $new = $_;
  45          if ($datahandle{$_}) {
  46              $new .= '.t';
  47              local(*F, *T);
  48              open(F,"<$_") or die "Can't open $_: $!";
  49              open(T,">$new") or die "Can't open $new: $!";
  50              print T $dhwrapper, <F>;
  51              close F;
  52              close T;
  53          }
  54          $new;
  55          } @tests;
  56
  57 print "The tests ", join(' ', keys(%infinite)),
  58     " generate infinite loops! Skipping!\n";
  59
  60 $ENV{'COMPILE_TEST'} = 1;
  61 $ENV{'COMPILE_TIMEOUT'} = 120 unless $ENV{'COMPILE_TIMEOUT'};
  62
  63 Test::Harness::runtests @tests;
  64 foreach (keys %datahandle) {
  65      unlink "$_.t";
  66 }