1 | Index: t/op/io.t |
---|
2 | =================================================================== |
---|
3 | --- t/op/io.t (revision 41730) |
---|
4 | +++ t/op/io.t (working copy) |
---|
5 | @@ -51,28 +51,9 @@ |
---|
6 | ok(1, 'open with null mode') |
---|
7 | .end |
---|
8 | |
---|
9 | -.sub 'tt661_todo_test' :anon |
---|
10 | - # Checks whether the platform is linux, MSWin32, darwin: on other |
---|
11 | - # platforms, the following tests are todo'ed. |
---|
12 | - .include 'sysinfo.pasm' |
---|
13 | - $S0 = sysinfo .SYSINFO_PARROT_OS |
---|
14 | - if $S0 == 'linux' goto tt661_ok |
---|
15 | - if $S0 == 'MSWin32' goto tt661_ok |
---|
16 | - if $S0 == 'darwin' goto tt661_ok |
---|
17 | - if $S0 == 'openbsd' goto tt661_ok |
---|
18 | - |
---|
19 | - .return (0) |
---|
20 | - |
---|
21 | - tt661_ok: |
---|
22 | - .return (1) |
---|
23 | -.end |
---|
24 | - |
---|
25 | .include 'iglobals.pasm' |
---|
26 | |
---|
27 | .sub 'open_pipe_for_reading' |
---|
28 | - $I0 = tt661_todo_test() |
---|
29 | - unless $I0 goto open_pipe_for_reading_todoed |
---|
30 | - |
---|
31 | .local pmc interp |
---|
32 | interp = getinterp |
---|
33 | |
---|
34 | @@ -103,15 +84,9 @@ |
---|
35 | open_pipe_for_reading_failed: |
---|
36 | nok(1, 'open pipe for reading') |
---|
37 | .return () |
---|
38 | - |
---|
39 | - open_pipe_for_reading_todoed: |
---|
40 | - todo(1, 'Unimplemented in this platform, TT #661') |
---|
41 | .end |
---|
42 | |
---|
43 | .sub 'open_pipe_for_writing' |
---|
44 | - $I0 = tt661_todo_test() |
---|
45 | - unless $I0 goto open_pipe_for_writing_todoed |
---|
46 | - |
---|
47 | .local pmc interp |
---|
48 | interp = getinterp |
---|
49 | |
---|
50 | @@ -144,9 +119,6 @@ |
---|
51 | open_pipe_for_writing_failed: |
---|
52 | nok(1, 'open pipe for writing') |
---|
53 | .return () |
---|
54 | - |
---|
55 | - open_pipe_for_writing_todoed: |
---|
56 | - todo(1, 'Unimplemented in this platform, TT #661') |
---|
57 | .end |
---|
58 | |
---|
59 | # Local Variables: |
---|