Change 11773 by ams@ams-lustre on 2001/08/28 23:54:57
Subject: [PATCH] make coretest
From: Paul Johnson <[EMAIL PROTECTED]>
Date: Wed, 29 Aug 2001 00:11:38 +0200
Message-Id: <[EMAIL PROTECTED]>
(Applied without the change to perlhack.pod. This should
probably stay undocumented.)
Affected files ...
... //depot/perl/Makefile.SH#211 edit
... //depot/perl/t/TEST#50 edit
Differences ...
==== //depot/perl/Makefile.SH#211 (text) ====
Index: perl/Makefile.SH
--- perl/Makefile.SH.~1~ Tue Aug 28 18:00:06 2001
+++ perl/Makefile.SH Tue Aug 28 18:00:06 2001
@@ -941,7 +941,7 @@
utest ucheck test.utf8 check.utf8 \
test.third check.third utest.third ucheck.third test_notty.third \
test.deparse test_notty.deparse \
- minitest
+ minitest coretest
# Cannot delegate rebuilding of t/perl to make
# to allow interlaced test and minitest
@@ -986,6 +986,9 @@
utest ucheck test.utf8 check.utf8: test_prep
PERL=./perl TEST_ARGS=-utf8 $(MAKE) _test
+coretest: test_prep
+ PERL=./perl TEST_ARGS=-core $(MAKE) _test
+
test-prep: test_prep
test-tty: test_tty
==== //depot/perl/t/TEST#50 (xtext) ====
Index: perl/t/TEST
--- perl/t/TEST.~1~ Tue Aug 28 18:00:06 2001
+++ perl/t/TEST Tue Aug 28 18:00:06 2001
@@ -9,6 +9,7 @@
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 @@
}
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 {
End of Patch.
