develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34151 - in branches/vc9/t: compilers/imcc/syn op pmc stm

From:
rblasch
Date:
December 20, 2008 10:52
Subject:
[svn:parrot] r34151 - in branches/vc9/t: compilers/imcc/syn op pmc stm
Message ID:
20081220185157.66959CBA12@x12.develooper.com
Author: rblasch
Date: Sat Dec 20 10:51:56 2008
New Revision: 34151

Modified:
   branches/vc9/t/compilers/imcc/syn/veracity.t
   branches/vc9/t/op/arithmetics.t
   branches/vc9/t/pmc/complex.t
   branches/vc9/t/pmc/float.t
   branches/vc9/t/pmc/threads.t
   branches/vc9/t/pmc/timer.t
   branches/vc9/t/stm/basic_mt.t

Log:
Unskip all Windows tests that pass using VC9.


Modified: branches/vc9/t/compilers/imcc/syn/veracity.t
==============================================================================
--- branches/vc9/t/compilers/imcc/syn/veracity.t	(original)
+++ branches/vc9/t/compilers/imcc/syn/veracity.t	Sat Dec 20 10:51:56 2008
@@ -107,9 +107,6 @@
 
 #}
 
-SKIP: {
-    skip 'failing on win32' => 1 if $^O =~ m/win32/i;
-
 pir_output_is( <<'CODE', <<'OUT', "Float NaN" );
 .sub test :main
     $N0 = 'NaN'
@@ -123,8 +120,6 @@
 NaN is true
 OUT
 
-}
-
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4

Modified: branches/vc9/t/op/arithmetics.t
==============================================================================
--- branches/vc9/t/op/arithmetics.t	(original)
+++ branches/vc9/t/op/arithmetics.t	Sat Dec 20 10:51:56 2008
@@ -169,9 +169,6 @@
 # Operations on a single NUMVAL
 #
 
-SKIP: {
-    skip 'failing on win32' => 1 if $^O =~ m/win32/i;
-
 pasm_output_is( <<'CODE', <<OUTPUT, "turn a native number into its negative" );
         set N0, 0
         neg N0
@@ -218,8 +215,6 @@
 123.456789
 OUTPUT
 
-}
-
 pasm_output_is( <<'CODE', <<OUTPUT, "take the absolute of a native number" );
         set N0, 0
         abs N0

Modified: branches/vc9/t/pmc/complex.t
==============================================================================
--- branches/vc9/t/pmc/complex.t	(original)
+++ branches/vc9/t/pmc/complex.t	Sat Dec 20 10:51:56 2008
@@ -719,13 +719,6 @@
 .endm
 
 .sub ln_of_complex_numbers
-    .local pmc config_hash, interp
-    .local string osname
-    interp = getinterp
-    config_hash = interp[.IGLOBALS_CONFIG_HASH]
-    osname = config_hash["os_name"]
-    eq osname, "MSWin32", win32fail
-
     .complex_op_is("-2+0i", "0.693147+3.141593i", 'ln' )
     .complex_op_is("-1+0i", "0.000000+3.141593i", 'ln' )
     .complex_op_is("-0.5+0i", "-0.693147+3.141593i", 'ln' )
@@ -748,9 +741,6 @@
     .complex_op_is("-2+3i", "1.282475+2.158799i", 'ln' )
     .complex_op_is("-2-3i", "1.282475-2.158799i", 'ln' )
     .return()
-
-win32fail:
-    skip( 17, 'inf is not platform-independent' )
 .end
 
 .sub exp_of_complex_numbers
@@ -1030,12 +1020,6 @@
 .end
 
 .sub sinh_of_complex_numbers
-    .local pmc config_hash, interp
-    interp = getinterp
-    config_hash = interp[.IGLOBALS_CONFIG_HASH]
-    $S0 = config_hash["os_name"]
-    eq $S0, "MSWin32", win32fail
-
     .complex_op_is("-2+0i", "-3.626860+0.000000i", 'sinh' )
     .complex_op_is("-1+0i", "-1.175201+0.000000i", 'sinh' )
     .complex_op_is("-0.5+0i", "-0.521095+0.000000i", 'sinh' )
@@ -1054,9 +1038,6 @@
     .complex_op_is("-2+3i", "3.590565+0.530921i", 'sinh' )
     .complex_op_is("-2-3i", "3.590565-0.530921i", 'sinh' )
     .return()
-
-win32fail:
-    skip( 17, 'failing on win32' )
 .end
 
 .sub cosh_of_complex_numbers

Modified: branches/vc9/t/pmc/float.t
==============================================================================
--- branches/vc9/t/pmc/float.t	(original)
+++ branches/vc9/t/pmc/float.t	Sat Dec 20 10:51:56 2008
@@ -503,9 +503,6 @@
 ok 2
 OUTPUT
 
-SKIP: {
-    skip 'failing on win32' => 1 if $^O =~ m/win32/i;
-
 pasm_output_like( << 'CODE', << 'OUTPUT', "neg 0" );
     new P0, 'Float'
     set P0, 0.0
@@ -516,8 +513,6 @@
 /^-0/
 OUTPUT
 
-}
-
 pasm_output_is( << 'CODE', << 'OUTPUT', "Equality" );
     new P0, 'Float'
     set P0, 1e8

Modified: branches/vc9/t/pmc/threads.t
==============================================================================
--- branches/vc9/t/pmc/threads.t	(original)
+++ branches/vc9/t/pmc/threads.t	Sat Dec 20 10:51:56 2008
@@ -74,10 +74,7 @@
 
 # RT #46807 rework tests since we don't really have thread types?
 
-SKIP: {
-    skip 'busted on win32' => 2 if $^O eq 'MSWin32';
-
-    pir_output_is( <<'CODE', <<'OUTPUT', "thread type 1" );
+pir_output_is( <<'CODE', <<'OUTPUT', "thread type 1" );
 .sub main :main
     .local pmc threadfunc
     .local pmc thread
@@ -112,6 +109,9 @@
 main 10
 OUTPUT
 
+SKIP: {
+    skip 'hangs on Windows, VC9' => 1 if $^O eq 'MSWin32';
+
     pir_output_is( <<'CODE', <<'OUTPUT', "thread type 1 -- repeated" );
 .sub real_main :main
     $I0 = 0
@@ -158,9 +158,6 @@
 OUTPUT
 }
 
-SKIP: {
-    skip 'failing on win32' => 1 if $^O =~ m/win32/i;
-
 pir_output_is( <<'CODE', <<'OUTPUT', "thread type 2" );
 .sub main :main
     set $I5, 10
@@ -204,11 +201,6 @@
 from 10 interp
 OUTPUT
 
-}
-
-SKIP: {
-    skip 'failing on win32' => 1 if $^O =~ m/win32/i;
-
 pir_output_is( <<'CODE', <<'OUTPUT', 'thread - kill' );
 .sub main :main
     .local pmc threadsub
@@ -242,8 +234,6 @@
 done
 OUTPUT
 
-}
-
 pir_output_is( <<'CODE', <<'OUTPUT', "join, get retval" );
 .sub _main
     .const int MAX = 1000
@@ -295,9 +285,7 @@
 500500
 OUTPUT
 
-SKIP: {
-    skip( "detatch broken on $^O", 1 ) if ( $^O =~ /MSWin32/ );
-    pir_output_like( <<'CODE', <<'OUTPUT', "detach" );
+pir_output_like( <<'CODE', <<'OUTPUT', "detach" );
 .sub main :main
     .local pmc foo
     .local pmc queue
@@ -324,7 +312,6 @@
 CODE
 /(done\nthread\n)|(thread\ndone\n)/
 OUTPUT
-}
 
 pir_output_is( <<'CODE', <<'OUTPUT', "share a PMC" );
 .sub main :main

Modified: branches/vc9/t/pmc/timer.t
==============================================================================
--- branches/vc9/t/pmc/timer.t	(original)
+++ branches/vc9/t/pmc/timer.t	Sat Dec 20 10:51:56 2008
@@ -101,7 +101,6 @@
 
 SKIP: {
     skip( "No thread config yet", 3 ) unless ( $platforms{$^O} );
-    skip 'failing on win32' => 3 if $^O =~ m/win32/i;
 
     pasm_output_like( <<'CODE', <<'OUT', "Timer setup - initializer/start" );
 .include "timer.pasm"

Modified: branches/vc9/t/stm/basic_mt.t
==============================================================================
--- branches/vc9/t/stm/basic_mt.t	(original)
+++ branches/vc9/t/stm/basic_mt.t	Sat Dec 20 10:51:56 2008
@@ -9,9 +9,7 @@
 use Parrot::Test;
 use Parrot::Config;
 
-plan $^O =~ /MSWin32/
-    ? ( skip_all => 'broken on Win32' )
-    : tests => 4;
+plan tests => 4;
 
 =head1 NAME
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About