Fix .gitignore for new dist name
[catagits/Catalyst-Action-Serialize-Data-Serializer.git] / xt / version-numbers.t
CommitLineData
6edee33e 1use strict;
2use warnings;
3
2c34d7cb 4use FindBin qw/$Bin/;
5use File::Spec;
6edee33e 6use File::Find::Rule;
7use Module::Info;
8
2c34d7cb 9use Test::More;
6edee33e 10
11my %versions;
2c34d7cb 12for 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
c5ee29f8 20my $ver = delete $versions{'Catalyst/Action/Serialize/Data/Serializer.pm'};
2c34d7cb 21ok $ver;
22ok scalar(keys %versions);
6edee33e 23
2c34d7cb 24for 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
29done_testing;
30