Porting/checkansi.pl Check source code for ANSI-C violations
Porting/checkARGS_ASSERT.pl Check we use every PERL_ARGS_ASSERT* macro
Porting/checkAUTHORS.pl Check that the AUTHORS file is complete
-Porting/checkcase.pl Check whether we are case-insensitive-fs-friendly
Porting/checkcfgvar.pl Check that config scripts define all symbols
Porting/checkURL.pl Check whether we have working URLs
Porting/checkVERSION.pl Check whether we have $VERSIONs
t/pod/twice.t Test Pod::Parser
t/pod/usage2.pod Test POD for pod2usage tests
t/pod/usage.pod Test POD for pod2usage tests
+t/porting/checkcase.t Check whether we are case-insensitive-fs-friendly
t/README Instructions for regression tests
t/run/cloexec.t Test close-on-exec.
t/run/exit.t Test perl's exit status.
# Finds the files that have the same name, case insensitively,
# in the current directory and its subdirectories
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
+
+
+
use warnings;
use strict;
use File::Find;
my %files;
+my $test_count = 0;
+
find(sub {
my $name = $File::Find::name;
# Assumes that the path separator is exactly one character.
foreach (values %files) {
if (@$_ > 1) {
- print join(", ", @$_), "\n";
- $failed++;
- }
+ print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
+ } else {
+ print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
+ }
}
-print "no similarly named files found\n" unless $failed;
+print "1..".$test_count."\n";