Commit | Line | Data |
6edee33e |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use File::Find::Rule; |
5 | use Module::Info; |
6 | |
7 | use Test::More qw( no_plan ); |
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{'Catalyst/Action/REST.pm'}; |
19 | |
20 | for my $module ( grep { $_ ne 'Catalyst/Action/REST.pm' } sort keys %versions ) { |
21 | is( $versions{$module}, $moose_ver, |
22 | "version for $module is the same as in Catalyst/Action/REST.pm" ); |
23 | } |