Commit | Line | Data |
db01aae1 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use File::Basename qw( basename ); |
7 | |
8 | for my $subdir ( glob 't/*' ) { |
9 | my %files; |
10 | |
11 | for my $file ( map { basename($_) } glob "$subdir/*.t" ) { |
12 | my ($number) = $file =~ /^(\d+)/; |
13 | next unless defined $number; |
14 | |
15 | push @{ $files{$number} }, $file; |
16 | } |
17 | |
18 | for my $number ( grep { @{ $files{$_} } > 1 } keys %files ) { |
19 | print $subdir, "\n"; |
20 | print ' - ', $_, "\n" for @{ $files{$number} }; |
21 | print "\n"; |
22 | } |
23 | } |