[svn:parrot] r36736 - trunk/t/pmc

particle at svn.parrot.org particle at svn.parrot.org
Sat Feb 14 21:40:40 UTC 2009


Author: particle
Date: Sat Feb 14 21:40:39 2009
New Revision: 36736
URL: https://trac.parrot.org/parrot/changeset/36736

Log:
[t] todo tests only on platforms that don't have negative zero support

Modified:
   trunk/t/pmc/complex.t
   trunk/t/pmc/float.t

Modified: trunk/t/pmc/complex.t
==============================================================================
--- trunk/t/pmc/complex.t	Sat Feb 14 21:03:39 2009	(r36735)
+++ trunk/t/pmc/complex.t	Sat Feb 14 21:40:39 2009	(r36736)
@@ -1043,10 +1043,10 @@
 
 .sub sinh_of_complex_numbers
     .local pmc config_hash, interp
-    .local string osname
+    .local string has_negative_zero
     interp = getinterp
     config_hash = interp[.IGLOBALS_CONFIG_HASH]
-    osname = config_hash["osname"]
+    has_negative_zero = config_hash["has_negative_zero"]
 
     .complex_op_is("-2+0i", "-3.626860+0.000000i", 'sinh' )
     .complex_op_is("-1+0i", "-1.175201+0.000000i", 'sinh' )
@@ -1064,8 +1064,7 @@
     .complex_op_is("-2+3i", "3.590565+0.530921i", 'sinh' )
     .complex_op_is("-2-3i", "3.590565-0.530921i", 'sinh' )
 
-    eq osname, "openbsd", todo
-    eq osname, "MSWin32", todo
+    unless has_negative_zero goto todo
     .complex_op_is("0-2i", "-0.000000-0.909297i", 'sinh' )
     .complex_op_is("0+2i", "-0.000000+0.909297i", 'sinh' )
     .return()

Modified: trunk/t/pmc/float.t
==============================================================================
--- trunk/t/pmc/float.t	Sat Feb 14 21:03:39 2009	(r36735)
+++ trunk/t/pmc/float.t	Sat Feb 14 21:40:39 2009	(r36736)
@@ -8,6 +8,7 @@
 
 use Test::More;
 use Parrot::Test tests => 61;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -506,7 +507,7 @@
 TODO: {
     my @todo;
     @todo = ( todo => '-0.0 not implemented, TT #313' )
-        if $^O =~ m/(?:openbsd|mswin32)/i;
+        unless $PConfig{has_negative_zero};
 
 pasm_output_like( <<'CODE', <<'OUTPUT', 'neg 0', @todo );
     new P0, ['Float']


More information about the parrot-commits mailing list