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'; | |
9 | } | |
a5f75d66 | 10 | use lib '../lib'; |
aa689395 | 11 | |
a5f75d66 AD |
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 AD |
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; |