1#!./perl 2 3# We suppose that perl _mostly_ works at this moment, so may use 4# sophisticated testing. 5 6BEGIN { 7 chdir 't' if -d 't'; 8 @INC = '../lib'; 9} 10use lib '../lib'; 11 12use 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 = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests; 19Test::Harness::runtests @tests; 20