dist/Module-CoreList/t/maintainer.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 plan skip_all => 'These tests only run in core'
   6   unless $ENV{PERL_CORE};
   7
   8 my @mods = qw[
   9 Module::CoreList
  10 Module::CoreList::TieHashDelta
  11 Module::CoreList::Utils
  12 ];
  13
  14 plan tests => 3 + scalar @mods;
  15
  16 my %vers;
  17
  18 foreach my $mod ( @mods ) {
  19   use_ok($mod);
  20   $vers{ $mod->VERSION }++;
  21 }
  22
  23 is( scalar keys %vers, 1, 'All Module-CoreList modules should have the same $VERSION' );
  24
  25 # Check that there is a release entry for the current perl version
  26 my $released = $Module::CoreList::released{ $] };
  27 ok( defined $released, "There is a released entry for $]" );
  28 like( $released, qr!^\d{4}\-\d{2}\-\d{2}$!, 'It should be a date in YYYY-MM-DD format' );