[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