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