(patch blead) Extend t/harness to allow filtering of the file list by regex.

Message-ID: <9b18b3110502190210105decf4@mail.gmail.com>

p4raw-id: //depot/perl@23993

diff --git a/t/harness b/t/harness
index 4fc77460e7164922113790454a80fb813da42e97..e3e02f5cedbd947064cce7f744e5e39aceb3b8c7 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -54,6 +54,16 @@ sub _populate_hash {
     return map {$_, 1} split /\s+/, $_[0];
 }
 
+if ($ARGV[0]=~/^-re/) {
+    if ($ARGV[0]!~/=/) {
+        shift;
+        $re=join "|",@ARGV;
+        @ARGV=();
+    } else {
+        (undef,$re)=split/=/,shift;
+    }
+}
+
 if (@ARGV) {
     if ($^O eq 'MSWin32') {
        @tests = map(glob($_),@ARGV);
@@ -108,6 +118,8 @@ if (@ARGV) {
 if ($^O eq 'MSWin32') {
     s,\\,/,g for @tests;
 }
+@tests=grep /$re/, @tests 
+    if $re;
 Test::Harness::runtests @tests;
 exit(0) unless -e "../testcompile";