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'; |
9 | } |
a5f75d66 |
10 | use lib '../lib'; |
aa689395 |
11 | |
a5f75d66 |
12 | use Test::Harness; |
13 | |
14 | $Test::Harness::switches = ""; # Too much noise otherwise |
90ce63d5 |
15 | $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v'; |
a5f75d66 |
16 | |
17 | @tests = @ARGV; |
68dc0745 |
18 | @tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests; |
a5f75d66 |
19 | Test::Harness::runtests @tests; |