Skip to content

Commit

Permalink
Change tests in t/op/io.t to always run, except on platforms which ar…
Browse files Browse the repository at this point in the history
…e known to fail.

This solves TT #1095. Patch by GeJ++



git-svn-id: https://svn.parrot.org/parrot/trunk@42537 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information
darbelo committed Nov 16, 2009
1 parent 14ff587 commit ef86214
Showing 1 changed file with 5 additions and 8 deletions.
13 changes: 5 additions & 8 deletions t/op/io.t
Expand Up @@ -52,18 +52,15 @@ Tests various io opcodes.
.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

Expand Down Expand Up @@ -104,7 +101,7 @@ Tests various io opcodes.

.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

Expand Down

0 comments on commit ef86214

Please sign in to comment.