In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ee2820c629170cc93736e5aa2e280d90b05893b6?hp=a25e25cd8e0a9e4339e0be02c828ce1a1c133528>
- Log ----------------------------------------------------------------- commit ee2820c629170cc93736e5aa2e280d90b05893b6 Author: Chris 'BinGOs' Williams <[email protected]> Date: Sun Sep 14 14:53:57 2014 +0100 Remove the corevers.t from Module-CoreList and amend corelist porting test ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 - dist/Module-CoreList/t/corevers.t | 21 --------------------- t/porting/corelist.t | 19 +------------------ 3 files changed, 1 insertion(+), 40 deletions(-) delete mode 100644 dist/Module-CoreList/t/corevers.t diff --git a/MANIFEST b/MANIFEST index a021945..e126aa9 100644 --- a/MANIFEST +++ b/MANIFEST @@ -3164,7 +3164,6 @@ 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 deleted file mode 100644 index 09d5d72..0000000 --- a/dist/Module-CoreList/t/corevers.t +++ /dev/null @@ -1,21 +0,0 @@ -#!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 $]"); -} diff --git a/t/porting/corelist.t b/t/porting/corelist.t index bebb370..251a260 100644 --- a/t/porting/corelist.t +++ b/t/porting/corelist.t @@ -8,7 +8,7 @@ use Config; require 't/test.pl'; -plan(tests => 9); +plan(tests => 6); use_ok('Module::CoreList'); use_ok('Module::CoreList::Utils'); @@ -20,20 +20,3 @@ use_ok('Module::CoreList::TieHashDelta'); ok( defined $Module::CoreList::version{ $] }, "$] exists in version" ); ok( defined $Module::CoreList::Utils::utilities{$] }, "$] exists in Utils" ); } - -#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 -]; - -SKIP: { - skip('Special case v5.21.1 because rjbs', 3) if sprintf("v%vd", $^V) eq 'v5.21.1'; - foreach my $mod ( @modules ) { - my $vers = eval $mod->VERSION; - ok( !( $vers < $] || $vers > $] ), "$mod version should match perl version in core" ) - or diag("$mod $vers doesn't match $]"); - } -} -- Perl5 Master Repository
