develooper Front page | perl.perl5.porters | Postings from February 2020

Re: HP-UX

Thread Previous
From:
H.Merijn Brand
Date:
February 22, 2020 14:24
Subject:
Re: HP-UX
Message ID:
20200222152429.3c569e48@pc09.procura.nl
On Sat, 22 Feb 2020 12:08:38 +0100, "H.Merijn Brand" <h.m.brand@xs4all.nl> wrote:

> 2. Looking at the list of failures for 11.31, I'd like to bring
>    back the PASS status to the smokes. Doesn't look too hard:

Looking at a fail at the time ...

> https://tux.nl/perl5/smoke/hpux1131/511/cc/mktest.rpt
> 
> [en_US.utf8] 
> [en_US.utf8] -DDEBUGGING
> [en_US.utf8] -Duseithreads
> [en_US.utf8] -DDEBUGGING -Duseithreads
> ../dist/IO/t/cachepropagate-unix.t..........................FAILED
>     2, 10
>     Non-zero exit status: 2
> ../ext/XS-APItest/t/hv_macro.t..............................FAILED
>     2-33
>     Non-zero exit status: 32
> ../cpan/Socket/t/Socket.t...................................FAILED
>     Non-zero exit status: 255
>     Bad plan.  You planned 6 tests but ran 2.
> 
> So, I started digging. Any hints in advance are welcome.
> Slowly picking up motivation again :)

Building manually and diving in, I hit this:

Test Summary Report
-------------------
re/reg_mesg.t                                                    (Wstat: 138 Tests: 450 Failed: 0)
  Non-zero wait status: 138
  Parse errors: No plan found in TAP output
re/regex_sets.t                                                  (Wstat: 138 Tests: 27 Failed: 0)
  Non-zero wait status: 138
  Parse errors: No plan found in TAP output
../dist/IO/t/cachepropagate-unix.t                               (Wstat: 512 Tests: 15 Failed: 2)
  Failed tests:  2, 10
  Non-zero exit status: 2
../dist/Net-Ping/t/450_service.t                                 (Wstat: 0 Tests: 26 Failed: 0)
  TODO passed:   9, 18
../ext/XS-APItest/t/hv_macro.t                                   (Wstat: 13312 Tests: 61 Failed: 50)
  Failed tests:  2-49, 60-61
  Non-zero exit status: 52
  Parse errors: Bad plan.  You planned 63 tests but ran 61.
Files=2666, Tests=1171999, 1123 wallclock secs (312.63 usr 53.06 sys + 2266.19 cusr 293.78 csys = 2925.66 CPU)
Result: FAIL


perl-current/t 504 > ./perl -I../lib harness -v re/reg_mesg.t
re/reg_mesg.t ..
ok 1 -  /[[=foo=]]/ died
:
:
ok 447 - ... and no other warnings
ok 448 -  /\p{vertical
                        tab}/ died
ok 449 - ... and gave expected message
ok 450 - ... and no other warnings
All 450 subtests passed

Test Summary Report
-------------------
re/reg_mesg.t (Wstat: 138 Tests: 450 Failed: 0)
  Non-zero wait status: 138
  Parse errors: No plan found in TAP output
Files=1, Tests=450,  0 wallclock secs ( 0.09 usr  0.01 sys +  0.14 cusr  0.06 csys =  0.30 CPU)
Result: FAIL

On Linux it runs to

ok 3146 - ... and gave expected number (0) of warnings
1..3146
ok
All tests successful.
Files=1, Tests=3146,  1 wallclock secs ( 0.14 usr  0.01 sys +  0.25 cusr  0.00 csys =  0.40 CPU)
Result: PASS

            warning_is(sub {
                    my $meaning_of_life;
                    my $eval_string = "$strict $regex";
                    $_ = "x";
                    diag ("eval_string: $eval_string");
                    diag ("expect: $expect");
-->                 eval "$eval_string; \$meaning_of_life = 42";
                    diag ("OK!");
                    ok (! defined $meaning_of_life, "$eval_string died");
                    my $error= $@;
                    if ($error =~ qr/\Q$expect/) {
                        ok(1, "... and gave expected message");
                    } else {
                        ok(0,$eval_string);
                        diag("Have: " . _q(add_markers($error)));
                        diag("Want: " . _q($death[$i+1]));
                    }
                }, undef, "... and no other warnings");


That line will cause instant death for

# eval_string:  /(?[(?^:(?[\]))\]|2[^^]])R.\670/
# expect: Unexpected ']' with no following ')' in (?[... in regex; marked by <-- HERE in m/(?[(?^:(?[\]))\] <-- HERE |2[^^]])R.\670/ at


$ ./perl -I../lib -we'no warnings "experimental::regex_sets";no warnings "experimental::re_strict"; no warnings
"experimental::uniprop_wildcards";$_="x";/(?[(?^:(?[\]))\]|2[^^]])R.\670/'
Unexpected ')' in regex; marked by <-- HERE in m/(?[(?^:(?[\])) <-- HERE \]|2[^^]])R.\670/ at -e line 1.


Putting these aligned:

 # seen:     m/(?[(?^:(?[\])) <-- HERE \]|2[^^]])R.\670/
 # expected: m/(?[(?^:(?[\]))\] <-- HERE |2[^^]])R.\670/

I have no idea :)

-- 
H.Merijn Brand  http://tux.nl   Perl Monger  http://amsterdam.pm.org/
using perl5.00307 .. 5.31      porting perl5 on HP-UX, AIX, and Linux
https://useplaintext.email  https://tux.nl  http://www.test-smoke.org
http://qa.perl.org   http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About