1 | Index: 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 | |
---|