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 Test::Harness::runtests @tests;