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; | |
18 | @tests = <*/*.t> unless @tests; | |
19 | Test::Harness::runtests @tests; |