t/harness

   1 #!./perl
   2
   3 # We suppose that perl _mostly_ works at this moment, so may use
   4 # sophisticated testing.
   5
   6 # Note that _before install_ you may need to run it with -I ../lib flag
   7
   8 use lib '../lib';
   9 use Test::Harness;
  10
  11 $Test::Harness::switches = "";  # Too much noise otherwise
  12 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
  13
  14 @tests = @ARGV;
  15 @tests = <*/*.t> unless @tests;
  16 Test::Harness::runtests @tests;