Re: Smoke [blead] v5.25.7-4-gd5584eb FAIL(X) os/390 25.00 (2964/)

On 11/22/2016 05:18 AM, Yaroslav Kuzmin wrote:
>
> Smoke logs at available https://drive.google.com/file/d/0B5PTttxwo7qARm9MZXVqWmpYTlU
>
>  Automated smoke report for branch blead 5.25.8 patch d5584eb309dd8b676fc2fc9bb5b11ab92173a83b v5.25.7-4-gd5584eb
>  RS12: 2964 (2964/)
>      on        os/390 - 25.00
>      using     c99 version
>      smoketime 5 hours 21 minutes (average 2 hours 40 minutes)
>
>  Summary: FAIL(X)
>
>  O = OK  F = Failure(s), extended report at the bottom
>  X = Failure(s) under TEST but not under harness
>  ? = still running or test results not (yet) available
>  Build failures during:       - = unknown or N/A
>  c = Configure, m = make, M = make (after miniperl), t = make test-prep
>
>  v5.25.7-4-gd5584eb  Configuration (common) none
>  ----------- ---------------------------------------------------------
>  X X X X     -Dusedl
>  | | | +----- PERLIO = perlio -DDEBUGGING
>  | | +------- PERLIO = stdio  -DDEBUGGING
>  | +--------- PERLIO = perlio
>  +----------- PERLIO = stdio
>
>
>  Locally applied patches:
>      SMOKEd5584eb309dd8b676fc2fc9bb5b11ab92173a83b
>
>  Tests skipped on user request:
>      # One test name on a line
>  Failures: (common-args) none
>  [stdio] -Dusedl
>  Inconsistent test results (between TEST and harness):
>      ../lib/locale.t......................... .................................................... FAILED at test 408
>      ../ext/XS-APItest/t/utf8.t.............. ......................................... FAILED at test 22446
>      ../lib/warnings.t....................... .................................................. FAILED at test 519
>      ../t/dist/Net-Ping/t/010_pingecho.t..... .................................. FAILED at test 2

It may not be apparent to the person reading just this text, but there 
were about a 1000 fewer failures in the APItest file than the previous 
blead test.  Some of them I know fixes for, but I think it is now time 
to run the manual test I outlined at the end of October.  Attached is an 
updated utf8.c to substitute for the version in blead  Also attached is 
a patch to use if you prefer it instead.  Be sure you have built with 
the -DDEBUGGING option to Configure, then

cd ext/XS-APItest
../../perl -I ../../lib -DU t/utf8.t > utf8.t.log 2>&1

Also, I'll need a manual run to debug the locale.t failures.  Agaom pm a 
-DDEBUGGING build,

cd t
PERL_DEBUG_FULL_TEST=2 ./perl -I../lib -T -DLv ../lib/locale.t > 
locale.t.log 2>&1

Send me both logs, please
>
>  [perlio] -Dusedl
>  Inconsistent test results (between TEST and harness):
>      ../lib/locale.t......................... .................................................... FAILED at test 408
>      ../lib/warnings.t....................... .................................................. FAILED at test 519
>      ../ext/XS-APItest/t/utf8.t.............. ......................................... FAILED at test 22446
>
>  [stdio] -DDEBUGGING -Dusedl
>  Inconsistent test results (between TEST and harness):
>      ../t/dist/Net-Ping/t/010_pingecho.t..... .................................. FAILED at test 2
>      ../lib/warnings.t....................... .................................................. FAILED at test 519
>      ../ext/XS-APItest/t/utf8.t.............. ......................................... FAILED at test 22446
>      ../lib/locale.t......................... .................................................... FAILED at test 408
>
>  [perlio] -DDEBUGGING -Dusedl
>  Inconsistent test results (between TEST and harness):
>      ../lib/warnings.t....................... .................................................. FAILED at test 519
>      ../ext/XS-APItest/t/utf8.t.............. ......................................... FAILED at test 22446
>      ../lib/locale.t......................... .................................................... FAILED at test 408
>      ../t/dist/Net-Ping/t/010_pingecho.t..... .................................. FAILED at test 2
>
>  Compiler messages(os390):
>
>
>
>  --
>  Report by Test::Smoke v1.6 running on perl 5.22.0
>  (Reporter v0.052 / Smoker v0.045)
>
>
> --
>
> Regards,
>
> Yaroslav Kuzmin
> Developer C/C++ ,z/OS , Linux
> 3 Zhukovskiy Street · Miass, Chelyabinsk region 456318 · Russia
> Tel:  +7.922.2.38.33.38
> Email: [email protected]
> Web: www.rocketsoftware.com
>
> ================================
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 877.328.2932 ■ +1 781.577.4321
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
> ================================
>
> This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you.
>

From e3000d7e9ad6eb78cbe90d1b8ddb53cc3e4ab41e Mon Sep 17 00:00:00 2001
From: Karl Williamson <[email protected]>
Date: Fri, 28 Oct 2016 05:03:37 -0600
Subject: [PATCH 01/20] XXX For EBCDIC debug

---
 utf8.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/utf8.c b/utf8.c
index 4146361..2201bd5 100644
--- a/utf8.c
+++ b/utf8.c
@@ -388,6 +388,7 @@ S_is_utf8_cp_above_31_bits(const U8 * const s, const U8 * const e)
     const STRLEN prefix_len = sizeof(prefix) - 1;
     const STRLEN len = e - s;
     const STRLEN cmp_len = MIN(prefix_len, len - 1);
+    dTHX;
 
 #else
 
@@ -413,11 +414,18 @@ S_is_utf8_cp_above_31_bits(const U8 * const s, const U8 * const e)
      * bytes, and maybe up through 8 bytes, to be sure if the value is above 31
      * bits. */
     if (*s != 0xFE || len == 1) {
+        DEBUG_U(PerlIO_printf(Perl_debug_log, "%s: %d: is_utf8_cp_above_31_bits(%s, len=%d) returning false\n", __FILE__, __LINE__, _byte_dump_string(s, len), (int) len));
         return FALSE;
     }
 
     /* Note that in UTF-EBCDIC, the two lowest possible continuation bytes are
      * \x41 and \x42. */
+    DEBUG_U(PerlIO_printf(Perl_debug_log, "%s: %d: cBOOL(memGT(%s, %s, %d) returned %d\n",
+                                           __FILE__, __LINE__,
+                                           _byte_dump_string(s + 1, e - (s +1)),
+                                           _byte_dump_string(prefix, sizeof(prefix) - 1),
+                                           (int) cmp_len,
+                                           cBOOL(memGT(s + 1, prefix, cmp_len))));
     return cBOOL(memGT(s + 1, prefix, cmp_len));
 
 #endif
-- 
2.7.4