Commit | Line | Data |
7ce70009 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use File::Find::Rule; |
5 | use Module::Info; |
6 | |
7 | use Test::More; |
8 | |
9 | my %versions; |
10 | for my $pm_file ( File::Find::Rule->file->name(qr/\.pm$/)->in('lib') ) { |
11 | my $mod = Module::Info->new_from_file($pm_file); |
12 | |
13 | ( my $stripped_file = $pm_file ) =~ s{^lib/}{}; |
14 | |
15 | $versions{$stripped_file} = $mod->version; |
16 | } |
17 | |
18 | my $moose_ver = $versions{'MooseX/ClassAttribute.pm'}; |
19 | |
20 | for my $module ( grep { $_ ne 'MooseX/ClassAttribute.pm' } sort keys %versions ) { |
21 | is( |
22 | $versions{$module}, $moose_ver, |
23 | "version for $module is the same as in MooseX/ClassAttribute.pm" |
24 | ); |
25 | } |
26 | |
27 | done_testing(); |