Remove the $ENV{PERL_CORE} boilerplate from Data::Dumper's tests.

diff --git a/ext/Data-Dumper/t/bugs.t b/ext/Data-Dumper/t/bugs.t
index 453b252..cf2803f 100644 (file)
--- a/ext/Data-Dumper/t/bugs.t
+++ b/ext/Data-Dumper/t/bugs.t
@@ -3,15 +3,11 @@
 # regression tests for old bugs that don't fit other categories
 
 BEGIN {
-    if ($ENV{PERL_CORE}){
-       chdir 't' if -d 't';
-       unshift @INC, '../lib';
-       require Config; import Config;
-       no warnings 'once';
-       if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
-           print "1..0 # Skip: Data::Dumper was not built\n";
-           exit 0;
-       }
+    require Config; import Config;
+    no warnings 'once';
+    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+       print "1..0 # Skip: Data::Dumper was not built\n";
+       exit 0;
     }
 }
 

diff --git a/ext/Data-Dumper/t/dumper.t b/ext/Data-Dumper/t/dumper.t
index a285f17..de5e87c 100644 (file)
--- a/ext/Data-Dumper/t/dumper.t
+++ b/ext/Data-Dumper/t/dumper.t
@@ -4,14 +4,10 @@
 #
 
 BEGIN {
-    if ($ENV{PERL_CORE}){
-        chdir 't' if -d 't';
-        @INC = '../lib';
-        require Config; import Config;
-        if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
-            print "1..0 # Skip: Data::Dumper was not built\n";
-            exit 0;
-        }
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+       print "1..0 # Skip: Data::Dumper was not built\n";
+       exit 0;
     }
 }
 

diff --git a/ext/Data-Dumper/t/freezer.t b/ext/Data-Dumper/t/freezer.t
index 06ff9c9..85484e9 100644 (file)
--- a/ext/Data-Dumper/t/freezer.t
+++ b/ext/Data-Dumper/t/freezer.t
@@ -4,15 +4,11 @@
 # test suite yet
 
 BEGIN {
-    if ($ENV{PERL_CORE}){
-        chdir 't' if -d 't';
-        unshift @INC, '../lib';
-        require Config; import Config;
-        no warnings 'once';
-        if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
-            print "1..0 # Skip: Data::Dumper was not built\n";
-            exit 0;
-        }
+    require Config; import Config;
+    no warnings 'once';
+    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+       print "1..0 # Skip: Data::Dumper was not built\n";
+       exit 0;
     }
 }
 

diff --git a/ext/Data-Dumper/t/overload.t b/ext/Data-Dumper/t/overload.t
index 09045f9..9bb3410 100644 (file)
--- a/ext/Data-Dumper/t/overload.t
+++ b/ext/Data-Dumper/t/overload.t
@@ -2,8 +2,6 @@
 
 BEGIN {
     if ($ENV{PERL_CORE}){
-        chdir 't' if -d 't';
-        @INC = '../lib';
         require Config; import Config;
         no warnings 'once';
         if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {

diff --git a/ext/Data-Dumper/t/pair.t b/ext/Data-Dumper/t/pair.t
index c46ba6c..9559bdd 100644 (file)
--- a/ext/Data-Dumper/t/pair.t
+++ b/ext/Data-Dumper/t/pair.t
@@ -5,8 +5,6 @@
 
 BEGIN {
     if ($ENV{PERL_CORE}){
-        chdir 't' if -d 't';
-        unshift @INC, '../lib';
         require Config; import Config;
         no warnings 'once';
         if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {

diff --git a/t/TEST b/t/TEST
index b43c9f1..58a98b8 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -28,7 +28,6 @@ my %temp_no_core =
      '../ext/B-Debug' => 1,
      '../ext/Compress-Raw-Bzip2' => 1,
      '../ext/Compress-Raw-Zlib' => 1,
-     '../ext/Data-Dumper' => 'fixme',
      '../ext/Devel-PPPort' => 1,
      '../ext/DynaLoader' => 'fixme',
      '../ext/Encode' => 1,