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

[darbelo at svn.parrot.org]

Author: darbelo
Date: Mon Nov 16 21:42:25 2009
New Revision: 42537
URL: https://trac.parrot.org/parrot/changeset/42537

Log:
Change tests in t/op/io.t to always run, except on platforms which are known to fail. 
This solves TT #1095. Patch by GeJ++

Modified:
   trunk/t/op/io.t

Modified: trunk/t/op/io.t
==============================================================================
--- trunk/t/op/io.t	Mon Nov 16 21:07:07 2009	(r42536)
+++ trunk/t/op/io.t	Mon Nov 16 21:42:25 2009	(r42537)
@@ -52,18 +52,15 @@
 .end
 
 .sub 'tt661_todo_test' :anon
-    # Checks whether the platform is linux, MSWin32, darwin: on other
-    # platforms, the following tests are todo'ed.
+    # As of r41963, these tests need to be todo'ed at least on Win32. Add new
+    # platforms known to fail.
     .include 'sysinfo.pasm'
     $S0 = sysinfo .SYSINFO_PARROT_OS
-    if $S0 == 'linux' goto tt661_ok
-#    if $S0 == 'MSWin32' goto tt661_ok
-    if $S0 == 'darwin' goto tt661_ok
-    if $S0 == 'openbsd' goto tt661_ok
+    if $S0 == 'MSWin32' goto tt661_todo
 
     .return (0)
 
-  tt661_ok:
+  tt661_todo:
     .return (1)
 .end
 
@@ -104,7 +101,7 @@
 
 .sub 'open_pipe_for_writing'
     $I0 = tt661_todo_test()
-    unless $I0 goto open_pipe_for_writing_todoed
+    if $I0 goto open_pipe_for_writing_todoed
     .local pmc interp
     interp = getinterp