In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/223483699b06992e953eb5468dbc63a71b52fb3e?hp=99fcc83522102cdf7673a78ef88144bd9c093f5a>
- Log -----------------------------------------------------------------
commit 223483699b06992e953eb5468dbc63a71b52fb3e
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Thu Jun 1 13:28:00 2017 +0100
Add Module-CoreList maintainer tests
-----------------------------------------------------------------------
Summary of changes:
MANIFEST | 1 +
dist/Module-CoreList/t/maintainer.t | 28 ++++++++++++++++++++++++++++
2 files changed, 29 insertions(+)
create mode 100644 dist/Module-CoreList/t/maintainer.t
diff --git a/MANIFEST b/MANIFEST
index e6d1dea55f..9fba880ecb 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3509,6 +3509,7 @@ dist/Module-CoreList/t/corelist.t
Module::CoreList tests
dist/Module-CoreList/t/deprecated.t Module::CoreList tests
dist/Module-CoreList/t/find_modules.t Module::CoreList tests
dist/Module-CoreList/t/is_core.t Module::CoreList tests
+dist/Module-CoreList/t/maintainer.t Module::CoreList tests
dist/Module-CoreList/t/pod.t Module::CoreList tests
dist/Module-CoreList/t/utils.t Module::CoreList tests
dist/Net-Ping/Changes Net::Ping
diff --git a/dist/Module-CoreList/t/maintainer.t
b/dist/Module-CoreList/t/maintainer.t
new file mode 100644
index 0000000000..7a3d6584e4
--- /dev/null
+++ b/dist/Module-CoreList/t/maintainer.t
@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+use Test::More;
+
+plan skip_all => 'These tests only run in core'
+ unless $ENV{PERL_CORE};
+
+my @mods = qw[
+Module::CoreList
+Module::CoreList::TieHashDelta
+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' );
+
+# Check that there is a release entry for the current perl version
+my $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' );
--
Perl5 Master Repository
