Commit | Line | Data |
09c03d31 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use FindBin qw/$Bin/; |
5 | use File::Spec; |
6 | use File::Find::Rule; |
7 | use Module::Info; |
8 | |
9 | use Test::More; |
10 | |
11 | my %versions; |
12 | for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in(File::Spec->catdir($Bin, '..', '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 $ver = delete $versions{'Catalyst/Devel.pm'}; |
21 | ok $ver; |
22 | ok scalar(keys %versions); |
23 | |
24 | for my $module ( sort keys %versions ) { |
25 | next unless $versions{$module}; |
26 | |
27 | is( $versions{$module}, $ver, |
28 | "version for $module is the same as in Catalyst/Devel.pm" ); |
29 | } |
30 | |
31 | done_testing; |
32 | |