Ticket #313: tt313-win32-neg0.patch
File tt313-win32-neg0.patch, 2.3 KB (added by rurban, 13 years ago) |
---|
-
t/op/arithmetics.t
old new 169 169 # Operations on a single NUMVAL 170 170 # 171 171 172 SKIP: { 173 skip 'failing on your platform' => 1 if $^O =~ m/openbsd/i; 172 my $output = <<OUTPUT; 173 -0 174 0 175 -123.456789 176 123.456789 177 -0 178 0 179 -123.456789 180 123.456789 181 OUTPUT 182 183 if ($^O =~ m/openbsd|win32/i) { 184 $output =~ s/-0$/0/mg; 185 } 174 186 175 pasm_output_is( <<'CODE', <<OUTPUT, "turn a native number into its negative" );187 pasm_output_is( <<'CODE', $output, "turn a native number into its negative" ); 176 188 set N0, 0 177 189 neg N0 178 190 print N0 … … 208 220 print "\n" 209 221 end 210 222 CODE 211 -0212 0213 -123.456789214 123.456789215 -0216 0217 -123.456789218 123.456789219 OUTPUT220 221 }222 223 223 224 pasm_output_is( <<'CODE', <<OUTPUT, "take the absolute of a native number" ); 224 225 set N0, 0 -
t/pmc/float.t
old new 503 503 ok 2 504 504 OUTPUT 505 505 506 SKIP: { 507 skip 'failing on your platform' => 1 if $^O =~ m/openbsd/i; 506 my $output = '-0'; 507 if ($^O =~ m/openbsd|win32/i) { 508 $output =~ s/-0$/0/mg; 509 } 508 510 509 pasm_output_ like( << 'CODE', << 'OUTPUT', "neg 0" );511 pasm_output_is( << 'CODE', $output, "neg 0" ); 510 512 new P0, ['Float'] 511 513 set P0, 0.0 512 514 neg P0 513 515 print P0 514 516 end 515 517 CODE 516 /^-0/517 OUTPUT518 519 }520 518 521 519 pasm_output_is( << 'CODE', << 'OUTPUT', "Equality" ); 522 520 new P0, ['Float'] -
t/pmc/complex.t
old new 1042 1042 .complex_op_is("-2-3i", "3.590565-0.530921i", 'sinh' ) 1043 1043 1044 1044 eq osname, "openbsd", fail 1045 eq osname, "MSWin32", fail 1045 1046 .complex_op_is("0-2i", "-0.000000-0.909297i", 'sinh' ) 1046 1047 .complex_op_is("0+2i", "-0.000000+0.909297i", 'sinh' ) 1047 1048 .return() 1048 1049 1049 1050 fail: 1050 skip( 2, ' failing on your platform' )1051 skip( 2, 'sinh 0+2i, sinh 0-2i failing on your platform' ) 1051 1052 .end 1052 1053 1053 1054 .sub cosh_of_complex_numbers