Commit | Line | Data |
6edee33e |
1 | use strict; |
2 | use warnings; |
3 | |
2c34d7cb |
4 | use FindBin qw/$Bin/; |
5 | use File::Spec; |
6edee33e |
6 | use File::Find::Rule; |
7 | use Module::Info; |
8 | |
2c34d7cb |
9 | use Test::More; |
6edee33e |
10 | |
11 | my %versions; |
2c34d7cb |
12 | for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in(File::Spec->catdir($Bin, '..', 'lib') ) ) { |
6edee33e |
13 | my $mod = Module::Info->new_from_file($pm_file); |
14 | |
2c34d7cb |
15 | ( my $stripped_file = $pm_file ) =~ s{.*/lib/}{}; |
6edee33e |
16 | |
17 | $versions{$stripped_file} = $mod->version; |
18 | } |
19 | |
2c34d7cb |
20 | my $ver = delete $versions{'Catalyst/Action/REST.pm'}; |
21 | ok $ver; |
22 | ok scalar(keys %versions); |
6edee33e |
23 | |
2c34d7cb |
24 | for my $module ( sort keys %versions ) { |
25 | is( $versions{$module}, $ver, |
6edee33e |
26 | "version for $module is the same as in Catalyst/Action/REST.pm" ); |
27 | } |
2c34d7cb |
28 | |
29 | done_testing; |
30 | |