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     @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
  23 %infinite = ('comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 );
  24
  25 @tests = grep (!$infinite{$_}, @tests);
  26
  27 if (-e "../testcompile")
  28 {
  29         print "The tests ", join(' ', keys(%infinite)),
  30                                                         " generate infinite loops! Skipping!\n";
  31
  32         $ENV{'COMPILE_TEST'} = 1; Test::Harness::runtests @tests;
  33 }