This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
82be0500ad78476f765c805a6656ff82b53f0f39
[perl5.git] / t / porting / checkcase.t
1 #!/usr/bin/perl
2 # Finds the files that have the same name, case insensitively,
3 # in the current directory and its subdirectories
4
5 BEGIN {
6     chdir 't' if -d 't';
7     @INC = '../lib';
8 }
9
10
11
12 use warnings;
13 use strict;
14 use File::Find;
15
16 my %files;
17 my $test_count = 0;
18
19 find(sub {
20            my $name = $File::Find::name;
21            # Assumes that the path separator is exactly one character.
22            $name =~ s/^\.\..//;
23            push @{$files{lc $name}}, $name;
24          }, '.');
25
26 my $failed;
27
28 foreach (values %files) {
29     if (@$_ > 1) {
30                 print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
31     } else {
32                 print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
33         }
34 }
35
36 print "1..".$test_count."\n";