[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