Re: Smoke [blead] v5.26.0-859-g7bd9fb107e FAIL(X) os/390 25.00 (2964/)

[email protected] (Karl Williamson) Thu, 5 Oct 2017 08:25:16 -0600
Newsgroups perl.mvs,perl.perl5.porters,perl.daily-build.reports
Message-ID <[email protected]>
--------------72388DFC58BF311D87596DD7
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: quoted-printable

On 10/05/2017 12:18 AM, Yaroslav Kuzmin wrote:
> The attached file does not have extra debugging info.

Oops.  Sorry.  I attached a version either from a wrong work space or=20
had git stashed it before I sent it.  The one attached to this email=20
should have the extra debugging.
>=20
> -------- =D0=98=D1=81=D1=85=D0=BE=D0=B4=D0=BD=D0=BE=D0=B5 =D1=81=D0=BE=D0=
=BE=D0=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5 --------
> *=D0=9E=D1=82*: Karl Williamson <[email protected]=20
> <mailto:Karl%20Williamson%20%[email protected]%3e>>
> *=D0=9A=D0=BE=D0=BC=D1=83*: Yaroslav Kuzmin <[email protected]=
=20
> <mailto:Yaroslav%20Kuzmin%20%[email protected]%3e>>,=20
> [email protected] <[email protected]=20
> <mailto:%[email protected]%22%20%[email protected]%3e>>,=20
> [email protected] <[email protected]=20
> <mailto:%[email protected]%22%20%[email protected]%3e>>
> *=D0=9A=D0=BE=D0=BF=D0=B8=D1=8F*: [email protected] <daily-b=
[email protected]=20
> <mailto:%[email protected]%22%20%3cdaily-build-reports@per=
l.org%3e>>
> *=D0=A2=D0=B5=D0=BC=D0=B0*: Re: Smoke [blead] v5.26.0-859-g7bd9fb107e F=
AIL(X) os/390 25.00=20
> (2964/)
> *=D0=94=D0=B0=D1=82=D0=B0*: Tue, 3 Oct 2017 22:54:13 -0600
>=20
> On 10/03/2017 05:44 AM, Yaroslav Kuzmin wrote:
>> Dump attachment=20
>=20
>=20
> Thanks.  Please try the attached Langinfo.t, which has extra debugging
> info to see what happens.
>=20
>=20
>> (07:44) RS12 : PDKUZM | ~/ussport/perl/perl-build/ext/I18N-Langinfo :>=
=20
>> ../../perl -I../../lib -T t/Langinfo.t 1..38 ok 1 - use=20
>> I18N::Langinfo; ok 2 - calling langinfo() with ABDAY_1 ok 3 - checking=
=20
>> if the returned string is defined ok 4 - checking if the returned=20
>> string has a positive length ok 5 - calling langinfo() with DAY_1 ok 6=
=20
>> - checking if the returned string is defined ok 7 - checking if the=20
>> returned string has a positive length ok 8 - calling langinfo() with=20
>> ABMON_1 ok 9 - checking if the returned string is defined ok 10 -=20
>> checking if the returned string has a positive length ok 11 - calling=20
>> langinfo() with MON_1 ok 12 - checking if the returned string is=20
>> defined ok 13 - checking if the returned string has a positive length=20
>> ok 14 - calling langinfo() with RADIXCHAR ok 15 - checking if the=20
>> returned string is defined ok 16 - checking if the returned string has=
=20
>> a positive length ok 17 - calling langinfo() with AM_STR ok 18 -=20
>> checking if the returned string is defined ok 19 - checking if the=20
>> returned string has a positive length ok 20 - calling langinfo() with=20
>> THOUSEP ok 21 # skip returned string was empty, skipping next two=20
>> tests ok 22 # skip returned string was empty, skipping next two tests=20
>> ok 23 - calling langinfo() with D_T_FMT ok 24 - checking if the=20
>> returned string is defined ok 25 - checking if the returned string has=
=20
>> a positive length ok 26 - calling langinfo() with D_FMT ok 27 -=20
>> checking if the returned string is defined ok 28 - checking if the=20
>> returned string has a positive length ok 29 - calling langinfo() with=20
>> T_FMT ok 30 - checking if the returned string is defined ok 31 -=20
>> checking if the returned string has a positive length ok 32 - ABDAY_1=20
>> =3D> 'Sun' ok 33 - ABMON_1 =3D> 'Jan' ok 34 - DAY_1 =3D> 'Sunday' ok 3=
5 -=20
>> MON_1 =3D> 'January' ok 36 - RADIXCHAR =3D> '.' ok 37 - THOUSEP =3D> '=
'=20
>> CEE3204S The system detected a protection exception (System Completion=
=20
>> Code=3D0C4). =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0Fro=
m compile unit=20
>> /u/pdkuzm/ussport/perl/perl-build/sv.c at entry point Perl_newSVpv at=20
>> statement 9410 at =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
compile unit offset +00000134 at entry=20
>> offset +00000134 at address 214C97FC. Segmentation fault --------=20
>> =D0=98=D1=81=D1=85=D0=BE=D0=B4=D0=BD=D0=BE=D0=B5 =D1=81=D0=BE=D0=BE=D0=
=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5 -------- *=D0=9E=D1=82*: Karl Williamso=
n=20
>> <[email protected] <mailto:[email protected]>=20
>> <mailto:Karl%20Williamson%20%[email protected]%3e>> *=D0=9A=D0=
=BE=D0=BC=D1=83*:=20
>> Yaroslav Kuzmin <[email protected]=20
>> <mailto:[email protected]>=20
>> <mailto:Yaroslav%20Kuzmin%20%[email protected]%3e>>,=20
>> [email protected] <mailto:[email protected]> <[email protected]=20
>> <mailto:[email protected]>=20
>> <mailto:%[email protected]%22%20%[email protected]=20
>> <mailto:%22%20%[email protected]>%3e>>, [email protected]=20
>> <mailto:[email protected]> <[email protected]=20
>> <mailto:[email protected]>=20
>> <mailto:%[email protected]%22%20%[email protected]=20
>> <mailto:%22%20%[email protected]>%3e>> *=D0=9A=D0=BE=D0=BF=D0=B8=
=D1=8F*:=20
>> [email protected] <mailto:[email protected]>=20
>> <[email protected] <mailto:[email protected]>=20
>> <mailto:%[email protected]%22%20%3cdaily-build-reports@pe=
rl.org=20
>> <mailto:%22%20%[email protected]>%3e>> *=D0=A2=D0=B5=D0=BC=
=D0=B0*: Re: Smoke=20
>> [blead] v5.26.0-859-g7bd9fb107e FAIL(X) os/390 25.00 (2964/) *=D0=94=D0=
=B0=D1=82=D0=B0*:=20
>> Tue, 19 Sep 2017 09:24:46 -0600 On 09/12/2017 02:47 AM, Yaroslav=20
>> Kuzmin wrote:
>>> Smoke log available at=20
>>> https://drive.google.com/file/d/0B5PTttxwo7qARVAzdGo5SDFFRWs=20
>>> Automated smoke report for branch blead 5.27.4 patch=20
>>> 7bd9fb107eaf8df3da9ce46c89920f8da72c76ab v5.26.0-859-g7bd9fb107e=20
>> The new failure in this report is CEE3204S The system detected a=20
>> protection exception (System Completion Code=3D0C4). From entry point=20
>> Perl_newSVpv at compile unit offset +000000B8 at entry offset=20
>> +000000B8 at address 2124CF20. ext/I18N-Langinfo/t/Langinfo=20
>> .................................. FAILED--expected 38 tests, saw 37=20
>> From looking at the internet on this, this looks like what's called a=20
>> segfault in Unix. I looked at the code and I don't see anything wrong.=
=20
>> Any ideas? =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Rocket Software, Inc. and=20
>> subsidiaries =E2=96=A0 77 Fourth Avenue, Waltham MA 02451 =E2=96=A0 Ma=
in Office Toll=20
>> Free Number: +1 877.328.2932 Contact Customer Support:=20
>> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport=20
>> Unsubscribe from Marketing Messages/Manage Your Subscription=20
>> Preferences -=20
>> http://www.rocketsoftware.com/manage-your-email-preferences Privacy=20
>> Policy - http://www.rocketsoftware.com/company/legal/privacy-policy=20
>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D This communication and any=20
>> attachments may contain confidential information of Rocket Software,=20
>> Inc. All unauthorized use, disclosure or distribution is prohibited.=20
>> If you are not the intended recipient, please notify Rocket Software=20
>> immediately and destroy all copies of this communication. Thank you.=20
>=20
>=20
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
> Rocket Software, Inc. and subsidiaries =E2=96=A0 77 Fourth Avenue, Walt=
ham MA=20
> 02451 =E2=96=A0 Main Office Toll Free Number: +1 877.328.2932
> Contact Customer Support:=20
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preference=
s=20
> - http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-po=
licy
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
>=20
> This communication and any attachments may contain confidential=20
> information of Rocket Software, Inc. All unauthorized use, disclosure o=
r=20
> distribution is prohibited. If you are not the intended recipient,=20
> please notify Rocket Software immediately and destroy all copies of thi=
s=20
> communication. Thank you.
>=20


--------------72388DFC58BF311D87596DD7
Content-Type: application/x-perl;
 name="Langinfo.t"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="Langinfo.t"

#!perl -T
use strict;
use Config;
use Test::More;
require "../../t/loc_tools.pl";

plan skip_all => "I18N::Langinfo or POSIX unavailable" 
    if $Config{'extensions'} !~ m!\bI18N/Langinfo\b!;

my @constants = qw(ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR AM_STR THOUSEP D_T_FMT D_FMT T_FMT);

my %want =
    (
        ABDAY_1	=> "Sun",
        DAY_1	=> "Sunday",
        ABMON_1	=> "Jan",
        MON_1	=> "January",
        RADIXCHAR	=> ".",
        THOUSEP	=> "",
     );

my @want = sort keys %want;

plan tests => 1 + 3 * @constants + keys(@want) + 1;

use_ok('I18N::Langinfo', 'langinfo', @constants);

use POSIX;
setlocale(LC_ALL, "C");

for my $constant (@constants) {
    SKIP: {
        my $string = eval { langinfo(eval "$constant()") };
        is( $@, '', "calling langinfo() with $constant" );
        skip "returned string was empty, skipping next two tests", 2 unless $string;
        ok( defined $string, "checking if the returned string is defined" );
        cmp_ok( length($string), '>=', 1, "checking if the returned string has a positive length" );
    }
}

for my $i (1..@want) {
    my $try = $want[$i-1];
    eval { I18N::Langinfo->import($try) };
    SKIP: {
        skip "$try not defined", 1, if $@;
        no strict 'refs';
        is (langinfo(&$try), $want{$try}, "$try => '$want{$try}'");
    }
}

$|=1;
my $comma_locale;
for (find_locales( [ 'LC_NUMERIC' ] )) {
    use POSIX;
    use locale;
    diag "Trying $_";
    setlocale(LC_NUMERIC, $_) or next;
    my $in = 4.2; # avoid any constant folding bugs
    my $s = sprintf("%g", $in);
    if ($s eq "4,2")  {
        $comma_locale = $_;
        last;
    }
}

SKIP: {
    skip "Couldn't find a locale with a comma decimal pt", 1
                                                        unless $comma_locale;

    #no strict 'refs';
    is (langinfo(RADIXCHAR()), ",",
        "Returns ',' for decimal pt for locale '$comma_locale'");
}

--------------72388DFC58BF311D87596DD7--