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 $ENV{PERL5LIB} = '../lib'; # so children will see it too 10} 11use lib '../lib'; 12 13use 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 21Test::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 27if (-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} 34