# 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