Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t] TODOed failing Win32 tests for 1.6 release - pipe writes and nega…

…ting -0.0

git-svn-id: https://svn.parrot.org/parrot/trunk@41963 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit 267954041460bafe483538438a66403d3ce02d4c 1 parent 8b71d12
@Util Util authored
Showing with 35 additions and 0 deletions.
  1. +13 −0 t/op/arithmetics.t
  2. +22 −0 t/op/io.t
View
13 t/op/arithmetics.t
@@ -152,10 +152,18 @@ number types.
# print -0.0 as -0
#
.sub negate_minus_zero_point_zero
+ .include 'sysinfo.pasm'
+ $S9 = sysinfo .SYSINFO_PARROT_OS
+
set $N0, 0
neg $N0
$S0 = $N0
+ if $S9 == 'MSWin32' goto Todo_test1
is( $S0, "-0", '1' )
+ goto End_test1
+Todo_test1:
+ todo(1, 'Faulty on this platform')
+End_test1:
set $N0, -0.0
neg $N0
@@ -171,7 +179,12 @@ number types.
set $N1, 1
neg $N1, $N0
$S0 = $N1
+ if $S9 == 'MSWin32' goto Todo_test4
is( $S0, "-0", '4' )
+ goto End_test4
+Todo_test4:
+ todo(1, 'Faulty on this platform')
+End_test4:
.end
#
View
22 t/op/io.t
@@ -51,6 +51,22 @@ Tests various io opcodes.
ok(1, 'open with null mode')
.end
+.sub 'tt661_todo_test' :anon
+ # Checks whether the platform is linux, MSWin32, darwin: on other
+ # platforms, the following tests are todo'ed.
+ .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
+
+ .return (0)
+
+ tt661_ok:
+ .return (1)
+.end
+
.include 'iglobals.pasm'
.sub 'open_pipe_for_reading'
@@ -87,6 +103,8 @@ Tests various io opcodes.
.end
.sub 'open_pipe_for_writing'
+ $I0 = tt661_todo_test()
+ unless $I0 goto open_pipe_for_writing_todoed
.local pmc interp
interp = getinterp
@@ -119,6 +137,10 @@ Tests various io opcodes.
open_pipe_for_writing_failed:
nok(1, 'open pipe for writing')
.return ()
+
+ open_pipe_for_writing_todoed:
+ todo(1, 'Unimplemented in this platform, TT #661')
+
.end
# Local Variables:
Please sign in to comment.
Something went wrong with that request. Please try again.