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