Ticket #1488: t_op_trans_old_t.patch

File t_op_trans_old_t.patch, 0.8 KB (added by bubaflub, 4 years ago)

patch for t/op/trans_old.t to add skip block if no -0

  • t/op/trans_old.t

     
    88use Test::More; 
    99use Parrot::Test tests => 19; 
    1010use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech ); 
     11use Parrot::Config qw( %PConfig ); 
    1112 
    1213=head1 NAME 
    1314 
     
    329330ok 16 
    330331OUTPUT 
    331332 
     333SKIP: { 
     334    unless ($PConfig{has_negative_zero}) { 
     335        skip( "No negative zero, test skipped" ) 
     336    } 
     337 
    332338pasm_output_is( <<"CODE", <<'OUTPUT', 'atan, part 2' ); 
    333339        .include 'fp_equality.pasm' 
    334340        atan N4, -0.0, -0.0 
     
    340346ok 1 
    341347OUTPUT 
    342348 
     349} 
     350 
    343351pasm_output_is( <<"CODE", <<OUTPUT, "log2" ); 
    344352        .include 'fp_equality.pasm' 
    345353        set N1, 10.0