Re: [perl #38810] [PATCH] skip #7 t/dynoplibs/myops.t for mingw

[Jurosz Michal]

Err. This one is better.

--
S pozdravem Michal Jurosz

Index: t/dynoplibs/myops.t
===================================================================
--- t/dynoplibs/myops.t (revision 12069)
+++ t/dynoplibs/myops.t (working copy)
@@ -9,6 +9,9 @@
 use Parrot::Test tests => 8;
 use Parrot::Config;
 
+our ($MSWin32, $is_mingw);
+$MSWin32 = 1 if $^O =~ m!MSWin32!;
+$is_mingw = $MSWin32 && grep { $PConfig{cc} eq $_ } (qw(gcc gcc.exe));
 
 =head1 NAME
 
@@ -16,7 +19,7 @@
 
 =head1 SYNOPSIS
 
-       % prove t/dynoplibs/myops.t
+    % prove t/dynoplibs/myops.t
 
 =head1 DESCRIPTION
 
@@ -39,7 +42,7 @@
 .sub main :main
     loadlib P1, "myops_ops"
     $I0 = fortytwo
-       print $I0
+    print $I0
     print "\n"
 .end
 CODE
@@ -50,7 +53,7 @@
 .sub main :main
     loadlib P1, "myops_ops"
     $S0 = what_do_you_get_if_you_multiply_six_by_nine
-       print $S0
+    print $S0
     print "\n"
 .end
 CODE
@@ -105,8 +108,11 @@
 done.
 OUTPUT
 
-pir_output_is(<< 'CODE', << 'OUTPUT', "three alarm");
+SKIP: {
+  skip "three alarms, infinite loop under mingw32", 1 if $is_mingw;
 
+  pir_output_is(<< 'CODE', << 'OUTPUT', "three alarm");
+
 .sub main :main
     P1 = loadlib "myops_ops"
     find_global P0, "_alarm3"
@@ -154,6 +160,7 @@
 5
 done.
 OUTPUT
+}
 
 # bxand boolean op
 pasm_output_is(<<'CODE', <<'OUTPUT', 'bxand - A AND B, but not BOTH');