[gitmo/Moose.git] / author / find-dupe-test-numbers

#!/usr/bin/perl

use strict;
use warnings;

use File::Basename qw( basename );

for my $subdir ( glob 't/*' ) {
    my %files;

    for my $file ( map { basename($_) } glob "$subdir/*.t" ) {
        my ($number) = $file =~ /^(\d+)/;
        next unless defined $number;

        push @{ $files{$number} }, $file;
    }

    for my $number ( grep { @{ $files{$_} } > 1 } keys %files ) {
        print $subdir, "\n";
        print '  - ', $_, "\n" for @{ $files{$number} };
        print "\n";
    }
}
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	}