Skip Menu |

This queue is for tickets about the Data-ShowTable CPAN distribution.

Report information
The Basics
Id: 121132
Status: new
Priority: 0/
Queue: Data-ShowTable
People
Owner: Nobody in particular
Requestors: KENTNL [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Sat Apr 15 01:18:44 2017 KENTNL [...] cpan.org - Ticket created
Subject: Fails tests when no "." in @INC ( do "t/calls.pl" failed, '.' is no longer in @INC )
when no '.' is in @INC on Perl >5.25.11 ( for example, when executing by hand  , or with PERL_USE_UNSAFE_INC=0 in env ),  tests fail as follows:


PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/box-calls.t ......... do "t/calls.pl" failed, '.' is no longer in @INC at t/box-calls.t line 28.
t/box-calls.t ......... No subtests run
t/box-scaling.t ....... do "t/scaling.pl" failed, '.' is no longer in @INC at t/box-scaling.t line 28.
t/box-scaling.t ....... No subtests run
t/box-showtable.t ..... do "t/showtable.pl" failed, '.' is no longer in @INC at t/box-showtable.t line 28.
t/box-showtable.t ..... No subtests run
t/box-widths.t ........ do "t/widths.pl" failed, '.' is no longer in @INC at t/box-widths.t line 28.
t/box-widths.t ........ No subtests run
t/box-wrap.t .......... do "t/wrap.pl" failed, '.' is no longer in @INC at t/box-wrap.t line 28.
t/box-wrap.t .......... No subtests run
t/html-calls.t ........ do "t/calls.pl" failed, '.' is no longer in @INC at t/html-calls.t line 28.
t/html-calls.t ........ No subtests run
t/html-fmt.t .......... ok  
t/html-scaling.t ...... do "t/scaling.pl" failed, '.' is no longer in @INC at t/html-scaling.t line 28.
t/html-scaling.t ...... No subtests run
t/html-showtable.t .... do "t/showtable.pl" failed, '.' is no longer in @INC at t/html-showtable.t line 28.
t/html-showtable.t .... No subtests run
t/html-widths.t ....... do "t/widths.pl" failed, '.' is no longer in @INC at t/html-widths.t line 28.
t/html-widths.t ....... No subtests run
t/html-wrap.t ......... do "t/wrap.pl" failed, '.' is no longer in @INC at t/html-wrap.t line 28.
t/html-wrap.t ......... No subtests run
t/list-calls.t ........ do "t/calls.pl" failed, '.' is no longer in @INC at t/list-calls.t line 28.
t/list-calls.t ........ No subtests run
t/list-scaling.t ...... do "t/scaling.pl" failed, '.' is no longer in @INC at t/list-scaling.t line 28.
t/list-scaling.t ...... No subtests run
t/list-showtable.t .... do "t/showtable.pl" failed, '.' is no longer in @INC at t/list-showtable.t line 28.
t/list-showtable.t .... No subtests run
t/list-widths.t ....... do "t/widths.pl" failed, '.' is no longer in @INC at t/list-widths.t line 28.
t/list-widths.t ....... No subtests run
t/simple-calls.t ...... do "t/calls.pl" failed, '.' is no longer in @INC at t/simple-calls.t line 28.
t/simple-calls.t ...... No subtests run
t/simple-scaling.t .... do "t/scaling.pl" failed, '.' is no longer in @INC at t/simple-scaling.t line 28.
t/simple-scaling.t .... No subtests run
t/simple-showtable.t .. do "t/showtable.pl" failed, '.' is no longer in @INC at t/simple-showtable.t line 28.
t/simple-showtable.t .. No subtests run
t/simple-widths.t ..... do "t/widths.pl" failed, '.' is no longer in @INC at t/simple-widths.t line 28.
t/simple-widths.t ..... No subtests run
t/simple-wrap.t ....... do "t/wrap.pl" failed, '.' is no longer in @INC at t/simple-wrap.t line 28.
t/simple-wrap.t ....... No subtests run
t/test-showtable.t .... ok



-- 
- CPAN kentnl@cpan.org
- Gentoo Perl Maintainer kentnl@gentoo.org ( perl@gentoo.org )
  Sat Oct 07 02:35:41 2017 KENTNL [...] cpan.org - Correspondence added
Subject: 0001-Fix-test-failures-on-Perl-5.26.patch
From 9a7d82a8994505ad4c6552540d26c7586073e459 Mon Sep 17 00:00:00 2001 From: Kent Fredric <kentnl@gentoo.org> Date: Sat, 7 Oct 2017 19:08:53 +1300 Subject: Fix test failures on Perl 5.26 This also replaces "do" with a stricter 'require' as that will properly fail on nested errors instead of silently failing Bug: https://rt.cpan.org/Ticket/Display.html?id=121132 Bug: https://bugs.gentoo.org/615582 --- t/box-calls.t | 2 +- t/box-scaling.t | 2 +- t/box-showtable.t | 2 +- t/box-widths.t | 2 +- t/box-wrap.t | 2 +- t/html-calls.t | 2 +- t/html-scaling.t | 2 +- t/html-showtable.t | 2 +- t/html-widths.t | 2 +- t/html-wrap.t | 2 +- t/list-calls.t | 2 +- t/list-scaling.t | 2 +- t/list-showtable.t | 2 +- t/list-widths.t | 2 +- t/list-wrap.t | 2 +- t/simple-calls.t | 2 +- t/simple-scaling.t | 2 +- t/simple-showtable.t | 2 +- t/simple-widths.t | 2 +- t/simple-wrap.t | 2 +- 20 files changed, 20 insertions(+), 20 deletions(-) diff --git a/t/box-calls.t b/t/box-calls.t index 74a1ad9..ee6e26d 100755 --- a/t/box-calls.t +++ b/t/box-calls.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/box-scaling.t b/t/box-scaling.t index 74a1ad9..c95e2fd 100755 --- a/t/box-scaling.t +++ b/t/box-scaling.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl" diff --git a/t/box-showtable.t b/t/box-showtable.t index 74a1ad9..ee6e26d 100755 --- a/t/box-showtable.t +++ b/t/box-showtable.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/box-widths.t b/t/box-widths.t index 74a1ad9..ee6e26d 100755 --- a/t/box-widths.t +++ b/t/box-widths.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/box-wrap.t b/t/box-wrap.t index 74a1ad9..ee6e26d 100755 --- a/t/box-wrap.t +++ b/t/box-wrap.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/html-calls.t b/t/html-calls.t index 74a1ad9..ee6e26d 100755 --- a/t/html-calls.t +++ b/t/html-calls.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/html-scaling.t b/t/html-scaling.t index 74a1ad9..ee6e26d 100755 --- a/t/html-scaling.t +++ b/t/html-scaling.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/html-showtable.t b/t/html-showtable.t index 74a1ad9..ee6e26d 100755 --- a/t/html-showtable.t +++ b/t/html-showtable.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/html-widths.t b/t/html-widths.t index 74a1ad9..ee6e26d 100755 --- a/t/html-widths.t +++ b/t/html-widths.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/html-wrap.t b/t/html-wrap.t index 74a1ad9..ee6e26d 100755 --- a/t/html-wrap.t +++ b/t/html-wrap.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/list-calls.t b/t/list-calls.t index 74a1ad9..ee6e26d 100755 --- a/t/list-calls.t +++ b/t/list-calls.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/list-scaling.t b/t/list-scaling.t index 74a1ad9..ee6e26d 100755 --- a/t/list-scaling.t +++ b/t/list-scaling.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/list-showtable.t b/t/list-showtable.t index 74a1ad9..ee6e26d 100755 --- a/t/list-showtable.t +++ b/t/list-showtable.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/list-widths.t b/t/list-widths.t index 74a1ad9..ee6e26d 100755 --- a/t/list-widths.t +++ b/t/list-widths.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/list-wrap.t b/t/list-wrap.t index 74a1ad9..ee6e26d 100755 --- a/t/list-wrap.t +++ b/t/list-wrap.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/simple-calls.t b/t/simple-calls.t index 74a1ad9..ee6e26d 100755 --- a/t/simple-calls.t +++ b/t/simple-calls.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/simple-scaling.t b/t/simple-scaling.t index 74a1ad9..ee6e26d 100755 --- a/t/simple-scaling.t +++ b/t/simple-scaling.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/simple-showtable.t b/t/simple-showtable.t index 74a1ad9..ee6e26d 100755 --- a/t/simple-showtable.t +++ b/t/simple-showtable.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/simple-widths.t b/t/simple-widths.t index 74a1ad9..ee6e26d 100755 --- a/t/simple-widths.t +++ b/t/simple-widths.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; diff --git a/t/simple-wrap.t b/t/simple-wrap.t index 74a1ad9..ee6e26d 100755 --- a/t/simple-wrap.t +++ b/t/simple-wrap.t @@ -25,4 +25,4 @@ $what = "t/$what" if -d "t" && !-r "$what.pl"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; -do "$what.pl"; +require "./$what.pl"; -- 2.14.1