X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fharness;h=fe64a0462907ea17229018d985100588a1c2bf40;hb=acbc2db62d28b1660277b33463f96f796b30a6c3;hp=c98d91e360ead26aacdc6791e8e6d46b18497a1f;hpb=59b6621c2e7553e9242d2e0f881eaae20fdae420;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/harness b/t/harness
old mode 100755
new mode 100644
index c98d91e..fe64a04
--- a/t/harness
+++ b/t/harness
@@ -3,13 +3,17 @@
 # We suppose that perl _mostly_ works at this moment, so may use
 # sophisticated testing.
 
-# Note that _before install_ you may need to run it with -I ../lib flag
-
+BEGIN {
+    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;