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

--------------F30519BECFB33EC3E491B769
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: quoted-printable

On 10/03/2017 05:44 AM, Yaroslav Kuzmin wrote:
> Dump attachment

Thanks.  Please try the attached Langinfo.t, which has extra debugging=20
info to see what happens.


>=20
> (07:44) RS12 : PDKUZM | ~/ussport/perl/perl-build/ext/I18N-Langinfo
> :> ../../perl -I../../lib -T t/Langinfo.t
> 1..38
> ok 1 - use I18N::Langinfo;
> ok 2 - calling langinfo() with ABDAY_1
> ok 3 - checking if the returned string is defined
> ok 4 - checking if the returned string has a positive length
> ok 5 - calling langinfo() with DAY_1
> ok 6 - checking if the returned string is defined
> ok 7 - checking if the returned string has a positive length
> ok 8 - calling langinfo() with ABMON_1
> ok 9 - checking if the returned string is defined
> ok 10 - checking if the returned string has a positive length
> ok 11 - calling langinfo() with MON_1
> ok 12 - checking if the returned string is defined
> ok 13 - checking if the returned string has a positive length
> ok 14 - calling langinfo() with RADIXCHAR
> ok 15 - checking if the returned string is defined
> ok 16 - checking if the returned string has a positive length
> ok 17 - calling langinfo() with AM_STR
> ok 18 - checking if the returned string is defined
> ok 19 - checking if the returned string has a positive length
> ok 20 - calling langinfo() with THOUSEP
> ok 21 # skip returned string was empty, skipping next two tests
> ok 22 # skip returned string was empty, skipping next two tests
> ok 23 - calling langinfo() with D_T_FMT
> ok 24 - checking if the returned string is defined
> ok 25 - checking if the returned string has a positive length
> ok 26 - calling langinfo() with D_FMT
> ok 27 - checking if the returned string is defined
> ok 28 - checking if the returned string has a positive length
> ok 29 - calling langinfo() with T_FMT
> ok 30 - checking if the returned string is defined
> ok 31 - checking if the returned string has a positive length
> ok 32 - ABDAY_1 =3D> 'Sun'
> ok 33 - ABMON_1 =3D> 'Jan'
> ok 34 - DAY_1 =3D> 'Sunday'
> ok 35 - MON_1 =3D> 'January'
> ok 36 - RADIXCHAR =3D> '.'
> ok 37 - THOUSEP =3D> ''
> 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=A0From compile uni=
t /u/pdkuzm/ussport/perl/perl-build/sv.c at=20
> entry point Perl_newSVpv at statement 9410 at
>  =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0compile unit off=
set +00000134 at entry offset +00000134 at=20
> address 214C97FC.
> Segmentation fault
>=20
>=20
>=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, 19 Sep 2017 09:24:46 -0600
>=20
> On 09/12/2017 02:47 AM, Yaroslav Kuzmin wrote:
>> Smoke log available at=20
>> https://drive.google.com/file/d/0B5PTttxwo7qARVAzdGo5SDFFRWs Automated=
=20
>> smoke report for branch blead 5.27.4 patch=20
>> 7bd9fb107eaf8df3da9ce46c89920f8da72c76ab v5.26.0-859-g7bd9fb107e=20
>=20
>=20
> The new failure in this report is
>=20
> CEE3204S The system detected a protection exception (System Completion
> Code=3D0C4).
>            From entry point Perl_newSVpv at compile unit offset +000000=
B8
> at entry offset +000000B8 at address 2124CF20.
> ext/I18N-Langinfo/t/Langinfo ..................................
> FAILED--expected 38 tests, saw 37
>=20
>=20
>   From looking at the internet on this, this looks like what's called a
> segfault in Unix.  I looked at the code and I don't see anything wrong.
>=20
> Any ideas?
>=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


--------------F30519BECFB33EC3E491B769
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}'");
    }
}

my $comma_locale;
for (find_locales( [ 'LC_NUMERIC' ] )) {
    use POSIX;
    use locale;
    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'");
}

--------------F30519BECFB33EC3E491B769--