[svn:parrot] r42533 - trunk/t/op

Util at svn.parrot.org Util at svn.parrot.org
Mon Nov 16 19:09:18 UTC 2009


Author: Util
Date: Mon Nov 16 19:09:14 2009
New Revision: 42533
URL: https://trac.parrot.org/parrot/changeset/42533

Log:
TT#313 - TODOed t/op/number.t test #131 (neg 0.0) on platforms that cannot print -0.0

Modified:
   trunk/t/op/number.t

Modified: trunk/t/op/number.t
==============================================================================
--- trunk/t/op/number.t	Mon Nov 16 17:43:05 2009	(r42532)
+++ trunk/t/op/number.t	Mon Nov 16 19:09:14 2009	(r42533)
@@ -685,9 +685,18 @@
 .end
 
 .sub test_neg_0_dot_0
+    load_bytecode 'config.pbc'
+    $P1 = _config()
+    $P2 = $P1['has_negative_zero']
+    unless $P2 goto negative_zero_todoed
+
     set $N1, 0
     neg $N1
     is( $N1, "-0", 'neg 0.0' )
+    .return ()
+
+  negative_zero_todoed:
+    todo(0, '-0.0 not implemented, TT#313')
 .end
 
 .sub test_mul_n_n


More information about the parrot-commits mailing list