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

[allison at svn.parrot.org]

Author: allison
Date: Thu Aug 13 02:25:41 2009
New Revision: 40508
URL: https://trac.parrot.org/parrot/changeset/40508

Log:
[cage] Make pipe test actually test the string read from the pipe,
instead of just running a pattern match on a constant string.

Modified:
   trunk/t/op/io.t

Modified: trunk/t/op/io.t
==============================================================================
--- trunk/t/op/io.t	Thu Aug 13 02:01:25 2009	(r40507)
+++ trunk/t/op/io.t	Thu Aug 13 02:25:41 2009	(r40508)
@@ -96,7 +96,8 @@
     unless pipe goto open_pipe_for_reading_failed
     .local string line
     line = readline pipe
-    like('This is Parrot', ":s This is Parrot", 'open pipe for reading')
+    line = substr line, 0, 14
+    is('This is Parrot', line, 'open pipe for reading')
     .return ()
 
   open_pipe_for_reading_failed: