In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8d85448a83211e0f03a3927c81a3f881a046d233?hp=564aa3ec835b6ae5b5121062a6b9441bf083ec2b>
- Log ----------------------------------------------------------------- commit 8d85448a83211e0f03a3927c81a3f881a046d233 Author: Tony Cook <t...@develop-help.com> Date: Tue Jan 14 16:54:29 2014 +1100 use the more portable File::Spec->devnull for the stderr redirect this allows pending-author.t to work on MSWin32 M t/porting/pending-author.t commit 7f1eeb9406015c9472a52da27518397b1959eb4d Author: Tony Cook <t...@develop-help.com> Date: Tue Jan 14 16:53:40 2014 +1100 [perl #116971] avoid feeding manisort a bad @INC the C<< use TestInit qw(T) >> in manifest.t both changes to the build tree *and* initializes $ENV{PERL5LIB} to "lib", so there's no need fo runperl() to supply (an incorrect) -I.. when running manisort. M t/porting/manifest.t commit b6e1fb883d303e0b054ab2f7475e97020bcfa201 Author: Tony Cook <t...@develop-help.com> Date: Tue Jan 14 15:46:27 2014 +1100 [perl #116971] avoid feeding utils run by utils.t a bad @INC the C<< use TestInit qw(T) >> both changes to the build tree root *and* initializes $ENV{PERL5LIB} to "lib", so there's no need for runperl() to supply -I.. when testing each tool. M t/porting/utils.t ----------------------------------------------------------------------- Summary of changes: t/porting/manifest.t | 3 ++- t/porting/pending-author.t | 4 +++- t/porting/utils.t | 2 +- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/t/porting/manifest.t b/t/porting/manifest.t index b8c63c5..c367fc7 100644 --- a/t/porting/manifest.t +++ b/t/porting/manifest.t @@ -71,7 +71,8 @@ SKIP: { my $result = runperl('progfile' => 'Porting/manisort', 'args' => [ '-c', $manifest ], - 'stderr' => 1); + 'stderr' => 1, + 'nolib' => 1 ); like($result, qr/is sorted properly/, 'MANIFEST sorted properly'); } diff --git a/t/porting/pending-author.t b/t/porting/pending-author.t index 0cb4054..4dceaf6 100644 --- a/t/porting/pending-author.t +++ b/t/porting/pending-author.t @@ -25,12 +25,14 @@ BEGIN { } use TestInit qw(T); # T is chdir to the top level use strict; +use File::Spec; require 't/test.pl'; find_git_or_skip('all'); +my $devnull = File::Spec->devnull; my $changes; -foreach (`git status --porcelain 2>/dev/null`) { +foreach (`git status --porcelain 2>$devnull`) { next if /^\?\?/; ++$changes; last; diff --git a/t/porting/utils.t b/t/porting/utils.t index 25fb802..7ff13cf 100644 --- a/t/porting/utils.t +++ b/t/porting/utils.t @@ -85,7 +85,7 @@ foreach my $victim (@victims) { skip ("$victim uses $excuses{$victim}, so can't test with just core modules") if $excuses{$victim}; - my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1); + my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1, nolib => 1); is($got, "$victim syntax OK\n", "$victim compiles"); } } -- Perl5 Master Repository