This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the corevers.t from Module-CoreList and amend corelist porting test
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 14 Sep 2014 13:53:57 +0000 (14:53 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 14 Sep 2014 13:59:37 +0000 (14:59 +0100)
MANIFEST
dist/Module-CoreList/t/corevers.t [deleted file]
t/porting/corelist.t

index a021945..e126aa9 100644 (file)
--- 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 (file)
index 09d5d72..0000000
+++ /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 $]");
-}
index bebb370..251a260 100644 (file)
@@ -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 $]");
-  }
-}