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