From 91139bec5ec7b15d501290f71421e774717f459a Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Mon, 17 Feb 2003 10:33:01 +0000
Subject: 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)

---
 runtests.pl | 7 +++++--
 1 file 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"));
 
-- 
cgit v1.2.3-24-g4f1b