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

[via RT]

# New Ticket Created by  Jurosz Michal 
# Please include the string:  [perl #38810]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38810 >


This transaction appears to have no content
Bypass Win32 MinGW infinite loop for "tree alarm test"
(t/dynoplibs/myops.t #7).

-- 
S pozdravem Michal Jurosz



Index: t/dynoplibs/myops.t
===================================================================
--- t/dynoplibs/myops.t (revision 12069)
+++ t/dynoplibs/myops.t (working copy)
@@ -9,6 +9,8 @@
 use Parrot::Test tests => 8;
 use Parrot::Config;
 
+our ($is_mingw);
+$is_mingw = grep { $PConfig{cc} eq $_ } (qw(gcc gcc.exe));
 
 =head1 NAME
 
@@ -16,7 +18,7 @@
 
 =head1 SYNOPSIS
 
-       % prove t/dynoplibs/myops.t
+    % prove t/dynoplibs/myops.t
 
 =head1 DESCRIPTION
 
@@ -39,7 +41,7 @@
 .sub main :main
     loadlib P1, "myops_ops"
     $I0 = fortytwo
-       print $I0
+    print $I0
     print "\n"
 .end
 CODE
@@ -50,7 +52,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 +107,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 +159,7 @@
 5
 done.
 OUTPUT
+}
 
 # bxand boolean op
 pasm_output_is(<<'CODE', <<'OUTPUT', 'bxand - A AND B, but not BOTH');

signature.asc
Description: PGP signature