[svn:parrot] r41963 - trunk/t/op
Util at svn.parrot.org
Util at svn.parrot.org
Tue Oct 20 21:21:01 UTC 2009
Author: Util
Date: Tue Oct 20 21:20:59 2009
New Revision: 41963
URL: https://trac.parrot.org/parrot/changeset/41963
Log:
[t] TODOed failing Win32 tests for 1.6 release - pipe writes and negating -0.0
Modified:
trunk/t/op/arithmetics.t
trunk/t/op/io.t
Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t Tue Oct 20 20:18:08 2009 (r41962)
+++ trunk/t/op/arithmetics.t Tue Oct 20 21:20:59 2009 (r41963)
@@ -152,10 +152,18 @@
# 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 @@
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
#
Modified: trunk/t/op/io.t
==============================================================================
--- trunk/t/op/io.t Tue Oct 20 20:18:08 2009 (r41962)
+++ trunk/t/op/io.t Tue Oct 20 21:20:59 2009 (r41963)
@@ -51,6 +51,22 @@
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 @@
.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 @@
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:
More information about the parrot-commits
mailing list