xt/author/version-numbers.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use Test::Requires {
   7     'File::Find::Rule' => '0.01', # skip all if not installed
   8     'Module::Info' => '0.01',
   9 };
  10
  11 my %versions;
  12 for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in('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 $moose_ver = $versions{'MooseX/Singleton.pm'};
  21
  22 for my $module ( grep { $_ ne 'MooseX/Singleton.pm' } sort keys %versions ) {
  23     is( $versions{$module}, $moose_ver,
  24         "version for $module is the same as in MooseX/Singleton.pm" );
  25 }
  26
  27 done_testing;