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
