Ticket #1488: t_op_trans_old_t.patch

t/op/trans_old.t

@@ -8 +8 @@
 use Test::More;
 use Parrot::Test tests => 19;
 use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech );
+use Parrot::Config qw( %PConfig );
 
 =head1 NAME
 
@@ -329 +330 @@
 ok 16
 OUTPUT
 
+SKIP: {
+    unless ($PConfig{has_negative_zero}) {
+        skip( "No negative zero, test skipped" )
+    }
+
 pasm_output_is( <<"CODE", <<'OUTPUT', 'atan, part 2' );
         .include 'fp_equality.pasm'
         atan N4, -0.0, -0.0
@@ -340 +346 @@
 ok 1
 OUTPUT
 
+}
+
 pasm_output_is( <<"CODE", <<OUTPUT, "log2" );
         .include 'fp_equality.pasm'
         set N1, 10.0