X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fharness;h=fe64a0462907ea17229018d985100588a1c2bf40;hb=c7848ba184fac8eca4125f4296d6e09fee2c1846;hp=18feb32dc3531b080f46125add2e8da270b0c802;hpb=833d3f255ed68b969f062cec63d33f853ed9237c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/harness b/t/harness
old mode 100755
new mode 100644
index 18feb32..fe64a04
--- a/t/harness
+++ b/t/harness
@@ -4,14 +4,16 @@
 # sophisticated testing.
 
 BEGIN {
-  unshift @INC, '../lib';	# To get lib.pm
+    chdir 't' if -d 't';
+    @INC = '../lib';
 }
 use lib '../lib';
+
 use Test::Harness;
 
 $Test::Harness::switches = "";	# Too much noise otherwise
 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
 
 @tests = @ARGV;
-@tests = <*/*.t> unless @tests;
+@tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
 Test::Harness::runtests @tests;