Ticket #1095: patch-t_op_io.t

File patch-t_op_io.t, 1.4 KB (added by geraud, 5 years ago)
Line 
1Index: 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: