[svn:parrot] r36574 - in trunk/t: op pmc

[rurban at svn.parrot.org]

Author: rurban
Date: Wed Feb 11 09:14:02 2009
New Revision: 36574
URL: https://trac.parrot.org/parrot/changeset/36574

Log:
[t] Fix the last mingw smoke errors. TT#313
by accepting the print -0 => 0 quirks for now.

Modified:
   trunk/t/op/arithmetics.t
   trunk/t/pmc/complex.t
   trunk/t/pmc/float.t

Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t	Wed Feb 11 03:48:25 2009	(r36573)
+++ trunk/t/op/arithmetics.t	Wed Feb 11 09:14:02 2009	(r36574)
@@ -169,10 +169,22 @@
 # Operations on a single NUMVAL
 #
 
-SKIP: {
-    skip 'failing on your platform' => 1 if $^O =~ m/openbsd/i;
+my $output = <<OUTPUT;
+-0
+0
+-123.456789
+123.456789
+-0
+0
+-123.456789
+123.456789
+OUTPUT
+
+if ($^O =~ m/openbsd|win32/i) {
+    $output =~ s/-0$/0/mg;
+}
 
-pasm_output_is( <<'CODE', <<OUTPUT, "turn a native number into its negative" );
+pasm_output_is( <<'CODE', $output, "turn a native number into its negative" );
         set N0, 0
         neg N0
         print N0
@@ -208,17 +220,6 @@
         print "\n"
         end
 CODE
--0
-0
--123.456789
-123.456789
--0
-0
--123.456789
-123.456789
-OUTPUT
-
-}
 
 pasm_output_is( <<'CODE', <<OUTPUT, "take the absolute of a native number" );
         set N0, 0

Modified: trunk/t/pmc/complex.t
==============================================================================
--- trunk/t/pmc/complex.t	Wed Feb 11 03:48:25 2009	(r36573)
+++ trunk/t/pmc/complex.t	Wed Feb 11 09:14:02 2009	(r36574)
@@ -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

Modified: trunk/t/pmc/float.t
==============================================================================
--- trunk/t/pmc/float.t	Wed Feb 11 03:48:25 2009	(r36573)
+++ trunk/t/pmc/float.t	Wed Feb 11 09:14:02 2009	(r36574)
@@ -503,20 +503,18 @@
 ok 2
 OUTPUT
 
-SKIP: {
-    skip 'failing on your platform' => 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']