1use strict;
2use warnings;
3
4use File::Find::Rule;
5use Module::Info;
6
7use Test::More qw( no_plan );
8
9
10my %versions;
11for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in('lib' ) )
12{
13    next if $pm_file =~ /DateTimePP/;
14
15    my $mod = Module::Info->new_from_file($pm_file);
16
17    ( my $stripped_file = $pm_file ) =~ s{^lib/}{};
18
19    $versions{$stripped_file} = $mod->version;
20}
21
22my $moose_ver = $versions{'DateTime.pm'};
23
24for my $module ( grep { $_ ne 'DateTime.pm' } sort keys %versions )
25{
26    is( $versions{$module}, $moose_ver,
27        "version for $module is the same as in DateTime.pm" );
28}
29