Author: coke
Date: Thu Aug 11 11:57:02 2005
New Revision: 8920
Modified:
trunk/lib/Parrot/Test/Tcl.pm
Log:
[#36438] - Silence Tcl tests - we were not capturing STDERR because at
one point, it core dumped. Doesn't seem to be a problem (at least on OS X)
any more. partcl test suite now runs silently.
Modified: trunk/lib/Parrot/Test/Tcl.pm
==============================================================================
--- trunk/lib/Parrot/Test/Tcl.pm (original)
+++ trunk/lib/Parrot/Test/Tcl.pm Thu Aug 11 11:57:02 2005
@@ -44,11 +44,8 @@ sub output_is() {
$cmd = "$self->{parrot} $args languages/tcl/tcl.pbc $lang_f";
- # For some reason, if you redirect both STDERR and STDOUT here,
- # you get a 38M file of garbage. We'll temporarily assume everything
- # works and ignore stderr.
$exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
- STDOUT => $out_f);
+ STDOUT => $out_f, STDERR => $out_f);
unless ($pass) {
my $file = Parrot::Test::slurp_file($out_f);
