[svn:parrot] r40344 - trunk/t/tools

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Jul 30 15:16:53 2009
New Revision: 40344
URL: https://trac.parrot.org/parrot/changeset/40344

Log:
[t] use the --script option instead of stdin to pass commands in parrot_debugger tests

Modified:
   trunk/t/tools/parrot_debugger.t

Modified: trunk/t/tools/parrot_debugger.t
==============================================================================
--- trunk/t/tools/parrot_debugger.t	Thu Jul 30 15:01:49 2009	(r40343)
+++ trunk/t/tools/parrot_debugger.t	Thu Jul 30 15:16:53 2009	(r40344)
@@ -218,7 +218,7 @@
 
 Takes 4 arguments: a file to run, the filename-extension of the file
 (probably "pir" or "pasm"), the command or commands to provide to
-parrot_debugger as input, and a regex string to match within
+parrot_debugger as script file, and a regex string to match within
 parrot_debugger's output.
 
 =cut
@@ -238,7 +238,7 @@
     $f->print($input);
     $f->print("\nquit\n");
     $f->close();
-    system("$path_to_pdb $codefn <$stdinfn >$stdoutfn 2>&1");
+    system("$path_to_pdb --script $stdinfn $codefn >$stdoutfn 2>&1");
     $f = IO::File->new($stdoutfn);
 
     my $output = join( '', <$f> );