xt/version-numbers.t

   1 use strict;
   2 use warnings;
   3
   4 use File::Find::Rule;
   5 use Module::Info;
   6
   7 use Test::More;
   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{'MooseX/ClassAttribute.pm'};
  19
  20 for my $module ( grep { $_ ne 'MooseX/ClassAttribute.pm' } sort keys %versions ) {
  21     is(
  22         $versions{$module}, $moose_ver,
  23         "version for $module is the same as in MooseX/ClassAttribute.pm"
  24     );
  25 }
  26
  27 done_testing();