[svn:parrot] r36737 - in trunk/t: dynoplibs pmc

[particle at svn.parrot.org]

Author: particle
Date: Sat Feb 14 22:38:50 2009
New Revision: 36737
URL: https://trac.parrot.org/parrot/changeset/36737

Log:
[t] unskip some passing tests on win32

Modified:
   trunk/t/dynoplibs/myops.t
   trunk/t/pmc/threads.t
   trunk/t/pmc/timer.t

Modified: trunk/t/dynoplibs/myops.t
==============================================================================
--- trunk/t/dynoplibs/myops.t	Sat Feb 14 21:40:39 2009	(r36736)
+++ trunk/t/dynoplibs/myops.t	Sat Feb 14 22:38:50 2009	(r36737)
@@ -26,7 +26,8 @@
 $ENV{TEST_PROG_ARGS} ||= '';
 
 my $is_ms_win32 = $^O =~ m!MSWin32!;
-my $is_mingw    = $is_ms_win32 && grep { $PConfig{cc} eq $_ } qw(gcc gcc.exe);
+my $is_mingw    = $is_ms_win32
+    && grep { $PConfig{cc} =~ /\b$_\b/ } qw(gcc gcc.exe);
 
 pir_output_is( <<'CODE', <<'OUTPUT', 'fortytwo' );
 .loadlib "myops_ops"

Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t	Sat Feb 14 21:40:39 2009	(r36736)
+++ trunk/t/pmc/threads.t	Sat Feb 14 22:38:50 2009	(r36737)
@@ -158,8 +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
@@ -204,10 +202,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
@@ -242,7 +236,6 @@
 done
 OUTPUT
 
-}
 
 pir_output_is( <<'CODE', <<'OUTPUT', "join, get retval" );
 .sub _main
@@ -295,9 +288,8 @@
 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 +316,7 @@
 CODE
 /(done\nthread\n)|(thread\ndone\n)/
 OUTPUT
-}
+
 
 pir_output_is( <<'CODE', <<'OUTPUT', "share a PMC" );
 .sub main :main

Modified: trunk/t/pmc/timer.t
==============================================================================
--- trunk/t/pmc/timer.t	Sat Feb 14 21:40:39 2009	(r36736)
+++ trunk/t/pmc/timer.t	Sat Feb 14 22:38:50 2009	(r36737)
@@ -35,7 +35,7 @@
     linux
     openbsd
     MSWin32
-    /;
+/;
 
 pasm_output_is( <<'CODE', <<'OUT', "Timer setup" );
 .include "timer.pasm"
@@ -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"