1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/bin/perl
# Finds the files that have the same name, case insensitively in the build tree
BEGIN {
@INC = '..' if -f '../TestInit.pm';
require './test.pl';
}
use TestInit qw(T); # T is chdir to the top level
use warnings;
use strict;
use File::Find;
my %files;
my $test_count = 0;
# in a parallel 'make test', temporary files and directories can
# randomly appear and disappear; don't complain about these
no warnings 'File::Find';
find({no_chdir => 1, wanted => sub {
my $name = $File::Find::name;
# Assumes that the path separator is exactly one character.
$name =~ s/^\..//;
# Special exemption for Makefile, makefile
return if $name =~ m!\A[Mm]akefile\z!;
if ($name eq '.git') {
# Don't scan the .git directory, as its contents are outside
# our control. In particular, as fetch doesn't default to
# --prune, # someone pushing a branch upstream with a name
# which case-conflicts with a previously deleted branch will
# cause action-at-a-distance failures, because locally
# .git/logs/refs/remotes will contain both.
++$File::Find::prune;
return;
}
push @{$files{lc $name}}, $name;
}}, '.');
foreach (sort values %files) {
is( @$_, 1, join(", ", @$_) ) or
do{ note($_) foreach @$_; };
}
done_testing();
|
