plan
skip_all
=>
'These tests only run in core'
unless
$ENV
{PERL_CORE};
my
@mods
=
qw[
Module::CoreList
Module::CoreList::Utils
]
;
plan
tests
=> 3 +
scalar
@mods
;
my
%vers
;
foreach
my
$mod
(
@mods
) {
use_ok(
$mod
);
$vers
{
$mod
->VERSION }++;
}
is(
scalar
keys
%vers
, 1,
'All Module-CoreList modules should have the same $VERSION'
);
my
$released
=
$Module::CoreList::released
{ $] };
$released
=
$Module::CoreList::released
{ $] };
ok(
defined
$released
,
"There is a released entry for $]"
);
like(
$released
,
qr!^\d{4}\-\d{2}\-\d{2}$!
,
'It should be a date in YYYY-MM-DD format'
);