In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d7bdb612ac7ecb7adfb85cf8f7484e81501984a7?hp=ac7c776db8600c80e9c7294447656749a959e62f>
- Log ----------------------------------------------------------------- commit d7bdb612ac7ecb7adfb85cf8f7484e81501984a7 Author: David Golden <[email protected]> Date: Fri Feb 11 11:01:12 2011 -0500 retab t/porting/checkcase.t M t/porting/checkcase.t commit f86fc3ff06fb5e5bae2719b5601eb7a094fe014b Author: David Golden <[email protected]> Date: Fri Feb 11 10:58:22 2011 -0500 t/porting/checkcase.t should skip directories We should only care about directory case to the extent it causes an actual file collision, so we can safely skip directories and let the file collision tests find issues for us. M t/porting/checkcase.t ----------------------------------------------------------------------- Summary of changes: t/porting/checkcase.t | 27 ++++++++++++++++----------- 1 files changed, 16 insertions(+), 11 deletions(-) diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t index 6ae1cf8..4ae44ca 100644 --- a/t/porting/checkcase.t +++ b/t/porting/checkcase.t @@ -10,23 +10,28 @@ my %files; my $test_count = 0; find(sub { - my $name = $File::Find::name; - # Assumes that the path separator is exactly one character. - $name =~ s/^\.\..//; + # We only care about directories to the extent they + # result in an actual file collision, so skip dirs + return if -d $File::Find::name; - # Special exemption for Makefile, makefile - return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!; + my $name = $File::Find::name; + # Assumes that the path separator is exactly one character. + $name =~ s/^\.\..//; - push @{$files{lc $name}}, $name; - }, '..'); + # Special exemption for Makefile, makefile + return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!; + + push @{$files{lc $name}}, $name; + }, '..'); foreach (sort values %files) { if (@$_ > 1) { - print "not ok ".++$test_count. " - ". join(", ", @$_), "\n"; - print STDERR "# $_\n" foreach @$_; + print "not ok ".++$test_count. " - ". join(", ", @$_), "\n"; + print STDERR "# $_\n" foreach @$_; } else { - print "ok ".++$test_count. " - ". join(", ", @$_), "\n"; - } + print "ok ".++$test_count. " - ". join(", ", @$_), "\n"; + } } print "1..".$test_count."\n"; +# vim: ts=4 sts=4 sw=4 et: -- Perl5 Master Repository
