Index: parrot-svn/t/op/arithmetics.t =================================================================== --- parrot-svn.orig/t/op/arithmetics.t 2009-01-31 14:05:40.000000000 +0100 +++ parrot-svn/t/op/arithmetics.t 2009-02-11 09:36:04.671875000 +0100 @@ -169,10 +169,22 @@ # Operations on a single NUMVAL # -SKIP: { - skip 'failing on your platform' => 1 if $^O =~ m/openbsd/i; +my $output = < 1 if $^O =~ m/openbsd/i; +my $output = '-0'; +if ($^O =~ m/openbsd|win32/i) { + $output =~ s/-0$/0/mg; +} -pasm_output_like( << 'CODE', << 'OUTPUT', "neg 0" ); +pasm_output_is( << 'CODE', $output, "neg 0" ); new P0, ['Float'] set P0, 0.0 neg P0 print P0 end CODE -/^-0/ -OUTPUT - -} pasm_output_is( << 'CODE', << 'OUTPUT', "Equality" ); new P0, ['Float'] Index: parrot-svn/t/pmc/complex.t =================================================================== --- parrot-svn.orig/t/pmc/complex.t 2009-01-31 14:05:39.000000000 +0100 +++ parrot-svn/t/pmc/complex.t 2009-02-11 09:45:36.421875000 +0100 @@ -1042,12 +1042,13 @@ .complex_op_is("-2-3i", "3.590565-0.530921i", 'sinh' ) eq osname, "openbsd", fail + eq osname, "MSWin32", fail .complex_op_is("0-2i", "-0.000000-0.909297i", 'sinh' ) .complex_op_is("0+2i", "-0.000000+0.909297i", 'sinh' ) .return() fail: - skip( 2, 'failing on your platform' ) + skip( 2, 'sinh 0+2i, sinh 0-2i failing on your platform' ) .end .sub cosh_of_complex_numbers