[svn:parrot] rev 7866 - trunk/languages/tcl/t

[coke]

Author: coke
Date: Mon Apr 18 17:14:45 2005
New Revision: 7866

Modified:
   trunk/languages/tcl/t/harness
Log:
Per leo, we should be running the test suite with --gc-debug



Modified: trunk/languages/tcl/t/harness
==============================================================================
--- trunk/languages/tcl/t/harness       (original)
+++ trunk/languages/tcl/t/harness       Mon Apr 18 17:14:45 2005
@@ -19,6 +19,12 @@
 
 my @files;
 
+# Per Leo on 18APR2005, run the test suite with --gc-debug
+
+if ($ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/) {
+  $ENV{TEST_PROG_ARGS} .= " --gc-debug"; 
+}
+
 if ( grep { /^-files$/ } @ARGV ) {
     # I must be running out of languages/
     my $dir = File::Spec->catfile( $language, "t" );