t/author/version_numbers.t

   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