runtests.pl now lets you specify a test number on the command line if you only want to run that specific test instead of all of them. (no bug number)

1 files changed, 5 insertions, 2 deletions

diff --git a/runtests.pl b/runtests.pl
index 930ff116d..376a4a1e4 100755
--- a/runtests.pl
+++ b/runtests.pl
@@ -27,13 +27,16 @@ use strict;
 use Test::Harness qw(&runtests $verbose);
 
 $verbose = 0;
+my $onlytest = "";
 
 foreach (@ARGV) {
     if (/^(?:-v|--verbose)$/) {
         $verbose = 1;
-        last;
+    }
+    else {
+        $onlytest = $_;
     }
 }
 
-runtests(glob("t/*.t"));
+runtests(glob("t/$onlytest*.t"));