From 5a6e071df79535e06d0295e4c341673b1eeb8efc Mon Sep 17 00:00:00 2001
From: Paul Johnson <paul@pjcj.net>
Date: Wed, 29 Aug 2001 02:11:38 +0200
Subject: make coretest Message-Id: <20010829001138.B12169@pjcj.net> (Applied
 without the change to perlhack.pod. This should probably stay undocumented.)

p4raw-id: //depot/perl@11773
---
 t/TEST | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 't')

diff --git a/t/TEST b/t/TEST
index 0a63f0e5f0..64da39ca4b 100755
--- a/t/TEST
+++ b/t/TEST
@@ -9,6 +9,7 @@ $| = 1;
 if ($#ARGV >= 0) {
     foreach my $idx (0..$#ARGV) {
 	next unless $ARGV[$idx] =~ /^-(\S+)$/;
+	$core    = 1 if $1 eq 'core';
 	$verbose = 1 if $1 eq 'v';
 	$with_utf= 1 if $1 eq 'utf8';
 	if ($1 =~ /^deparse(,.+)?$/) {
@@ -64,15 +65,20 @@ sub _find_tests {
 }
 
 unless (@ARGV) {
-    foreach my $dir (qw(base comp cmd run io op lib)) {
+    foreach my $dir (qw(base comp cmd run io op)) {
         _find_tests($dir);
     }
+    _find_tests("lib") unless $core;
     my $mani = File::Spec->catdir($updir, "MANIFEST");
     if (open(MANI, $mani)) {
         while (<MANI>) { # similar code in t/harness
 	    if (m!^(ext/\S+/([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) {
-		push @ARGV, $1;
-		$OVER{$1} = File::Spec->catdir($updir, $1);
+		$t = $1;
+		if (!$core || $t =~ m!^lib/[a-z]!)
+		{
+		    push @ARGV, $t;
+		    $OVER{$t} = File::Spec->catdir($updir, $t);
+		}
 	    }
 	}
     } else {
-- 
cgit v1.2.1