develooper Front page | perl.perl5.porters | Postings from January 2022

op/glob.t fails on one box

Thread Next
From:
H.Merijn Brand
Date:
January 19, 2022 13:37
Subject:
op/glob.t fails on one box
Message ID:
20220119143731.7eeb1973@pc09
Does this ring a bell to somebody?

To complicate matters:
First fail: 5.35.6-46-g0a91ad7 https://perl5.test-smoke.org/report/5013931 linux 5.3.18-59.10
Last  pass: 5.35.6-46-g0a91ad7 https://perl5.test-smoke.org/report/5013892 linux 5.3.18-59.10

perl-current/t > ./perl harness -v op/glob.t
op/glob.t ..
1..18
ok 1 - leftover op/* files
ok 2 - sane input record separator
ok 3 - glob amid garbage []
ok 4 - input record separator still sane
ok 5 - glob operator 1
ok 6 - glob operator 2
ok 7 - eval'ed a glob 1
ok 8 - eval'ed a glob 2
ok 9 - remove File::Glob stash
ok 10 - remove File::Glob stash *and* CORE::GLOBAL::glob
ok 11 - undefined *CORE::GLOBAL::glob{CODE} at run time
ok 12 - undefined *CORE::GLOBAL::glob{CODE} at compile time
ok 13 - define versus truth
ok 14 - test definedness with LOGOP
ok 15 - glob globbed something
ok 16 - ~ works
ok 17 - CORE::glob bypasses overrides
not ok 18 - Make sure the presence of the CORE::GLOBAL::glob typeglob does not affect whether File::Glob::csh_glob is called.
# Failed test 18 - Make sure the presence of the CORE::GLOBAL::glob typeglob does not affect whether File::Glob::csh_glob is called. at ./test.pl line 1076
#      got "Use of uninitialized value $output1 in string eq at - line 18.\nUse of uninitialized value $output2 in string eq at - line 18.\nok1\nok2"
# expected "ok1\nok2"
# PROG:
#     if ($^O eq 'VMS') {
#         # A pattern with a double quote in it is a syntax error to LIB$FIND_FILE
#         # Should we strip quotes in Perl_vms_start_glob the way csh_glob() does?
#         print "ok1\nok2\n";
#     }
#     else {
#         ++$INC{"File/Glob.pm"}; # prevent it from loading
#         my $called1 = 0;
#         my $called2 = 0;
#         *File::Glob::csh_glob = sub { ++$called1 };
#         my $output1 = eval q{ glob(q(./"TEST")) };
#         undef *CORE::GLOBAL::glob; # but leave the typeglob itself there
#         ++$CORE::GLOBAL::glob if 0; # "used only once"
#         undef *File::Glob::csh_glob; # avoid redefinition warnings
#         *File::Glob::csh_glob = sub { ++$called2 };
#         my $output2 = eval q{ glob(q(./"TEST")) };
#         print "ok1" if $called1 eq $called2;
#         print "ok2" if $output1 eq $output2;
#     }
# STATUS: 0
Failed 1/18 subtests

Test Summary Report
-------------------
op/glob.t (Wstat: 0 Tests: 18 Failed: 1)
  Failed test:  18
Files=1, Tests=18,  0 wallclock secs ( 0.01 usr  0.00 sys +  0.02 cusr  0.00 csys =  0.03 CPU)
Result: FAIL

At the same time these FAIL's were introduced:

perl-current/t > ./perl harness -v porting/dual-life.t
porting/dual-life.t ..
ok 1 - Verify -f '../utils/ptar'
ok 2 - Verify -f '../utils/ptardiff'
ok 3 - Verify -f '../utils/ptargrep'
ok 4 - Verify -f '../utils/cpan'
ok 5 - Verify -f '../utils/enc2xs'
ok 6 - Verify -f '../utils/encguess'
ok 7 - Verify -f '../utils/piconv'
ok 8 - Verify -f '../utils/instmodsh'
ok 9 - Verify -f '../utils/streamzip'
ok 10 - Verify -f '../utils/zipdetails'
ok 11 - Verify -f '../utils/json_pp'
not ok 12 - Verify -f '../cpan/Pod-Checker/podchecker'
not ok 13 - Verify -f '../cpan/Pod-Usage/pod2usage'
ok 14 - Verify -f '../utils/prove'
ok 15 - Verify -f '../cpan/podlators/scripts/pod2man'
ok 16 - Verify -f '../cpan/podlators/scripts/pod2text'
ok 17 - Verify -f '../cpan/podlators/scripts/pod2man'
ok 18 - Verify -f '../cpan/podlators/scripts/pod2text'
ok 19 - Verify -f '../utils/pod2html'
1..19
# Failed test 12 - Verify -f '../cpan/Pod-Checker/podchecker' at porting/dual-life.t line 70
# Failed test 13 - Verify -f '../cpan/Pod-Usage/pod2usage' at porting/dual-life.t line 70
Failed 2/19 subtests

Test Summary Report
-------------------
porting/dual-life.t (Wstat: 0 Tests: 19 Failed: 2)
  Failed tests:  12-13
Files=1, Tests=19,  0 wallclock secs ( 0.01 usr  0.00 sys +  0.05 cusr  0.02 csys =  0.08 CPU)
Result: FAIL

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

Thread Next


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