Commit | Line | Data |
---|---|---|
a5f75d66 AD |
1 | #!./perl |
2 | ||
3 | # We suppose that perl _mostly_ works at this moment, so may use | |
4 | # sophisticated testing. | |
5 | ||
aa689395 | 6 | BEGIN { |
7 | chdir 't' if -d 't'; | |
8 | @INC = '../lib'; | |
cf8a9db4 | 9 | $ENV{PERL5LIB} = '../lib'; # so children will see it too |
aa689395 | 10 | } |
a5f75d66 | 11 | use lib '../lib'; |
aa689395 | 12 | |
a5f75d66 AD |
13 | use Test::Harness; |
14 | ||
15 | $Test::Harness::switches = ""; # Too much noise otherwise | |
90ce63d5 | 16 | $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v'; |
a5f75d66 AD |
17 | |
18 | @tests = @ARGV; | |
68dc0745 | 19 | @tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests; |
52cebf5e | 20 | |
a5f75d66 | 21 | Test::Harness::runtests @tests; |
52cebf5e EP |
22 | |
23 | %infinite = ('comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 ); | |
24 | ||
25 | @tests = grep (!$infinite{$_}, @tests); | |
26 | ||
27 | if (-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 | } |