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 }
  10 use lib '../lib';
  11
  12 use Test::Harness;
  13
  14 $Test::Harness::switches = "";  # Too much noise otherwise
  15 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
  16
  17 @tests = @ARGV;
  18 @tests = <*/*.t> unless @tests;
  19 Test::Harness::runtests @tests;