Spelling correction for consistency with pod/perldebguts.pod.

[perl5.git] / t / porting / corelist.t

diff --git a/t/porting/corelist.t b/t/porting/corelist.t
index bebb370..2ae703f 100644 (file)
--- a/t/porting/corelist.t
+++ b/t/porting/corelist.t
@@ -6,13 +6,12 @@ use TestInit qw(T);
 use strict;
 use Config;
 
-require 't/test.pl';
+require './t/test.pl';
 
-plan(tests => 9);
+plan(tests => 5);
 
 use_ok('Module::CoreList');
 use_ok('Module::CoreList::Utils');
-use_ok('Module::CoreList::TieHashDelta');
 
 {
   no warnings 'once';
@@ -20,20 +19,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 $]");
-  }
-}