From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Jun 2001 18:16:28 +0000 (+0000)
Subject: Allow for deeper t/ and also a single test.pl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b637ffadabdd74cf3d1ad745a96611c427d33ba5;p=p5sagit%2Fp5-mst-13.2.git

Allow for deeper t/ and also a single test.pl.

p4raw-id: //depot/perl@10637
---

diff --git a/t/TEST b/t/TEST
index 5400999..5cd1927 100755
--- a/t/TEST
+++ b/t/TEST
@@ -70,7 +70,7 @@ unless (@ARGV) {
     my $mani = File::Spec->catdir($updir, "MANIFEST");
     if (open(MANI, $mani)) {
         while (<MANI>) {
-	    if (m!^((?:ext|lib)/.+/t/[^/]+\.t)\s!) {
+	    if (m!^((?:ext|lib)/.+/(?:t/.+\.t)|test.pl)\s!) {
 		push @ARGV, $1;
 		$OVER{$1} = File::Spec->catdir($updir, $1);
 	    }
diff --git a/t/harness b/t/harness
index d5335e7..011dc63 100644
--- a/t/harness
+++ b/t/harness
@@ -45,7 +45,7 @@ if (@ARGV) {
     my $mani  = File::Spec->catdir(File::Spec->updir, "MANIFEST");
     if (open(MANI, $mani)) {
         while (<MANI>) {
-	    if (m!^((?:ext|lib)/.+/t/[^/]+\.t)\s!) {
+	    if (m!^((?:ext|lib)/.+/(?:t/.+\.t)|test.pl)\s!) {
 		push @tests, File::Spec->catdir($updir, $1);
 	    }
 	}