author/find-dupe-test-numbers

   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 }