[svn:parrot] r46013 - trunk/t/run

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Apr 25 16:05:56 2010
New Revision: 46013
URL: https://trac.parrot.org/parrot/changeset/46013

Log:
[t] redirect output (which are not valid TAP comment)

Modified:
   trunk/t/run/exit.t

Modified: trunk/t/run/exit.t
==============================================================================
--- trunk/t/run/exit.t	Sun Apr 25 15:30:01 2010	(r46012)
+++ trunk/t/run/exit.t	Sun Apr 25 16:05:56 2010	(r46013)
@@ -74,7 +74,7 @@
 my $pirfile = IO::File->new(">$pirfn");
 $pirfile->print("Parse error.\n");
 $pirfile->close();
-my $rv = system("$PARROT -o $pbcfn $pirfn") >> 8;
+my $rv = system(qq|$PARROT -o $pbcfn $pirfn $redir > $redir 2> $redir|) >> 8;
 isnt($rv, 0, "parrot returns error on parse failure\n");
 ok(! -e $pbcfn, "parrot doesn't create outfile on parse failure\n");