Commit | Line | Data |
a5f75d66 |
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 |
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 |
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 |
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 | } |