From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Aug 2009 13:09:05 +0000 (+0100)
Subject: Remove the $ENV{PERL_CORE} boilerplate from Data::Dumper's tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8e2702e1526170c92d2792a0480223ce6977ed6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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,