[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