Ticket #1095: patch2_t_io.t

File patch2_t_io.t, 1.0 KB (added by geraud, 5 years ago)
Line 
1Index: t/op/io.t
2===================================================================
3--- t/op/io.t   (revision 42254)
4+++ t/op/io.t   (working copy)
5@@ -52,18 +52,15 @@
6 .end
7 
8 .sub 'tt661_todo_test' :anon
9-    # Checks whether the platform is linux, MSWin32, darwin: on other
10-    # platforms, the following tests are todo'ed.
11+    # As of r41963, these tests need to be todo'ed at least on Win32. Add new
12+    # platforms known to fail.
13     .include 'sysinfo.pasm'
14     $S0 = sysinfo .SYSINFO_PARROT_OS
15-    if $S0 == 'linux' goto tt661_ok
16-#    if $S0 == 'MSWin32' goto tt661_ok
17-    if $S0 == 'darwin' goto tt661_ok
18-    if $S0 == 'openbsd' goto tt661_ok
19+    if $S0 == 'MSWin32' goto tt661_todo
20 
21     .return (0)
22 
23-  tt661_ok:
24+  tt661_todo:
25     .return (1)
26 .end
27 
28@@ -104,7 +101,7 @@
29 
30 .sub 'open_pipe_for_writing'
31     $I0 = tt661_todo_test()
32-    unless $I0 goto open_pipe_for_writing_todoed
33+    if $I0 goto open_pipe_for_writing_todoed
34     .local pmc interp
35     interp = getinterp
36