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