Change 16362: Config / test updates

Change 16362 by pudge@pudge-mobile on 2002/05/03 01:56:52

	Config / test updates

Affected files ...

.... //depot/macperl/macos/MacPerlTests.cmd#4 edit
.... //depot/macperl/macos/MacPerlTests.plx#3 edit
.... //depot/macperl/macos/Makefile.mk#4 edit

Differences ...

==== //depot/macperl/macos/MacPerlTests.cmd#4 (text) ====
Index: perl/macos/MacPerlTests.cmd
--- perl/macos/MacPerlTests.cmd.~1~	Thu May  2 20:00:05 2002
+++ perl/macos/MacPerlTests.cmd	Thu May  2 20:00:05 2002
@@ -437,19 +437,19 @@
 echo "These tests are known to fail.  Run if you want to, but beware"
 echo "because crashes are possible."
 echo ""
-echo "# Devel::DProf seems to work, but test needs major work :/"
-echo ":perl -I::lib    :lib:dprof.t >> ::macos:MacPerlTests.out"
-echo ""
 echo "# fails all tests (system() fails to return a good value)"
 echo ":perl -I::lib    :op:die_exit.t >> ::macos:MacPerlTests.out"
 echo ""
-echo "# fails test 16   (system() fails to return a good value)"
-echo ":perl -I::lib    :op:magic.t >> ::macos:MacPerlTests.out"
-echo ""
 echo "# fails tests 129, 130, 142, 161 (known problem in sfio)"
 echo ":perl -I::lib    :op:sprintf.t >> ::macos:MacPerlTests.out"
 echo ""
+echo "# fails tests 158 164 170 (O_RDWR)"
+echo ":perl -I::lib -T :op:taint.t >> ::macos:MacPerlTests.out"
+echo ""
 echo "# fails tests 329 (known problem in sysopen warning)"
 echo ":perl -I::lib    :pragma:warnings.t >> ::macos:MacPerlTests.out"
 echo ""
+echo "# Devel::DProf seems to work, but test needs major work :/"
+echo ":perl -I::lib    :lib:dprof.t >> ::macos:MacPerlTests.out"
+echo ""
 echo "# `Date -t` ----- End MacPerl tests."

==== //depot/macperl/macos/MacPerlTests.plx#3 (text) ====
Index: perl/macos/MacPerlTests.plx
--- perl/macos/MacPerlTests.plx.~1~	Thu May  2 20:00:05 2002
+++ perl/macos/MacPerlTests.plx	Thu May  2 20:00:05 2002
@@ -15,10 +15,12 @@
 		$num = $1;
 		$line = 0;
 	} else {
-		if (/^ok (\d+)/) {
+		if      (/^ok (\d+)/) {
 			$tests[$1]++;
-		} elsif (/^not ok (\d+)[^#]+# TODO/) {
+		} elsif (/^not ok (\d+)[^#]+#\s+TODO/) {
 			$tests[$1]++;
+		} elsif (/^ok (\d+)[^#]+#\s+TODO/) {
+			$tests[$1] = -1;
 		} elsif (/^not ok (\d+)/) {
 			$tests[$1] = -1;
 		}

==== //depot/macperl/macos/Makefile.mk#4 (text) ====
Index: perl/macos/Makefile.mk
--- perl/macos/Makefile.mk.~1~	Thu May  2 20:00:05 2002
+++ perl/macos/Makefile.mk	Thu May  2 20:00:05 2002
@@ -243,14 +243,15 @@
 
 .PHONY : translators sitelib_install
 
-all: PLib Obj xsubppdup miniperl $(private) $(plextract) $(public) dynlibrary runperl extrlibrary
+all: PLib Obj dupfiles miniperl $(private) $(plextract) $(public) dynlibrary runperl extrlibrary
 	@echo " "; echo "	Everything is up to date."
 
 PLib: 
 	NewFolder PLib
 
-xsubppdup:
+dupfiles:
 	Duplicate -y xsubpp ::lib:ExtUtils:xsubpp
+	Duplicate -y :bundled_ext:Digest:MD5:Makefile.mk ::ext:Digest:MD5:Makefile.mk
 
 translators:	miniperl :lib:Config.pm
 .IF "68K" == "$(MACPERL_INST_TOOL_68K)"
@@ -284,7 +285,7 @@
 # build problems but that's not obvious to the novice.
 # The Module used here must not depend on Config or any extensions.
 
-.INIT : Obj PLib xsubppdup
+.INIT : Obj PLib dupfiles
 
 miniperl:  miniperl.{$(MACPERL_BUILD_TOOL)}
 	FatBuild miniperl $(MACPERL_INST_TOOL_PPC) $(MACPERL_INST_TOOL_68K)
End of Patch.