[svn:parrot] r37641 - trunk/tools/dev

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sun Mar 22 12:19:39 UTC 2009


Author: jkeenan
Date: Sun Mar 22 12:19:38 2009
New Revision: 37641
URL: https://trac.parrot.org/parrot/changeset/37641

Log:
Remove tools/dev/testyamd as it depends on an option long-gone from t/harness.
No one spoke up for its retention; cf.
http://rt.perl.org/rt3/Ticket/Display.html?id=41912 (12/27/2008 posting).

Deleted:
   trunk/tools/dev/testyamd
Modified:
   trunk/tools/dev/cc_flags.pl

Modified: trunk/tools/dev/cc_flags.pl
==============================================================================
--- trunk/tools/dev/cc_flags.pl	Sun Mar 22 05:36:08 2009	(r37640)
+++ trunk/tools/dev/cc_flags.pl	Sun Mar 22 12:19:38 2009	(r37641)
@@ -89,7 +89,7 @@
     }
 }
 
-my ($cfile) = grep /\.c$/, @ARGV;
+my ($cfile) = grep /\.[cs]$/, @ARGV;
 
 my ( $inject_point, $where );
 

Deleted: trunk/tools/dev/testyamd
==============================================================================
--- trunk/tools/dev/testyamd	Sun Mar 22 12:19:38 2009	(r37640)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,29 +0,0 @@
-#!/bin/sh
-#
-# run parrot tests under run-yamd
-#
-# $expect below is currently:
-# - 3 stdio handles
-# - 1 summary line
-
-cleanup() {
-	mv parrot.orig parrot
-	exit
-}
-
-trap cleanup 1 2 3
-mv parrot parrot.orig
-echo "run-yamd -l2 -f -n ./parrot.orig  \$@ 2>&1 | perl -ne'
-	BEGIN { undef $/; $|=1; };
-	my \$expect = 3 + 1;
-	my \$found = 0;
-	my \$err = 0;
-	print \$1 if (/\*{9,9}\n(.*?)\*{9,9}/s);
-	while (/WARNING/g) { ++\$found };
-	\$err++ if (/ERROR/);
-	print qq(\nLEAKs \$found\n) if \$found > \$expect;
-	print qq(\nERROR\n) if \$err;
-	1;'" > parrot
-chmod 755 parrot
-perl t/harness --gc-debug --running-make-test --leak-test $@
-cleanup


More information about the parrot-commits mailing list