diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-05-31 12:12:47 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-08-25 01:22:41 +0100 |
commit | 89a4389b7dfd6af1bbbd77051e7e2412146e7c30 (patch) | |
tree | 627851968812a6d9386e175d654d4e34c2e332dc | |
parent | f312a525a3d2adc3735dcf6e8334af7dd551c9f5 (diff) | |
download | perl-89a4389b7dfd6af1bbbd77051e7e2412146e7c30.tar.gz |
Added core-only version check to Module-CoreList
This should ensure that the versions of Module-CoreList modules
always match the version of perl.
Have to special-case skip for v5.21.1, because rjbs
(cherry picked from commit 4915b61c095597462aef8cf7437320c10954bb6d)
-rw-r--r-- | MANIFEST | 1 | ||||
-rw-r--r-- | dist/Module-CoreList/t/corevers.t | 21 |
2 files changed, 22 insertions, 0 deletions
@@ -3305,6 +3305,7 @@ dist/Module-CoreList/Makefile.PL Module::CoreList dist/Module-CoreList/MANIFEST Module::CoreList dist/Module-CoreList/README Module::CoreList dist/Module-CoreList/t/corelist.t Module::CoreList tests +dist/Module-CoreList/t/corevers.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 diff --git a/dist/Module-CoreList/t/corevers.t b/dist/Module-CoreList/t/corevers.t new file mode 100644 index 0000000000..09d5d72da0 --- /dev/null +++ b/dist/Module-CoreList/t/corevers.t @@ -0,0 +1,21 @@ +#!perl -w +use strict; +use Test::More; + +plan skip_all => 'This is perl core-only test' unless $ENV{PERL_CORE}; +plan skip_all => 'Special case v5.21.1 because rjbs' if sprintf("v%vd", $^V) eq 'v5.21.1'; + +my @modules = qw[ + Module::CoreList + Module::CoreList::Utils + Module::CoreList::TieHashDelta +]; + +plan tests => scalar @modules; + +foreach my $mod ( @modules ) { + eval "require $mod"; + my $vers = eval $mod->VERSION; + ok( !( $vers < $] || $vers > $] ), "$mod version should match perl version in core" ) + or diag("$mod $vers doesn't match $]"); +} |