[svn:parrot] r38755 - trunk/t/op

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed May 13 21:23:34 2009
New Revision: 38755
URL: https://trac.parrot.org/parrot/changeset/38755

Log:
[test] TODOed pipe writing test, don't know why fails

Modified:
   trunk/t/op/io.t

Modified: trunk/t/op/io.t
==============================================================================
--- trunk/t/op/io.t	Wed May 13 19:19:09 2009	(r38754)
+++ trunk/t/op/io.t	Wed May 13 21:23:34 2009	(r38755)
@@ -89,6 +89,11 @@
 /This is Parrot.*/
 OUTPUT
 
+}
+
+TODO: {
+local $TODO = 'Testing';
+
 pir_output_is( <<'CODE', <<'OUTPUT', 'open pipe for writing' );
 .include 'iglobals.pasm'
 
@@ -116,6 +121,7 @@
   pipe = open command, 'wp'
   unless pipe goto failed
   pipe.'puts'("Hello, pipe!\n")
+  close pipe
   .return()
 failed:
   say 'FAILED'