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

Remove the $ENV{PERL_CORE} boilerplate from Hash::Util::FieldHash's tests.
---

diff --git a/ext/Hash-Util-FieldHash/t/01_load.t b/ext/Hash-Util-FieldHash/t/01_load.t
index 222ef9a..ff9354c 100644
--- a/ext/Hash-Util-FieldHash/t/01_load.t
+++ b/ext/Hash-Util-FieldHash/t/01_load.t
@@ -1,12 +1,4 @@
 #!perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use strict; use warnings;
 
 use Test::More tests => 8;
diff --git a/ext/Hash-Util-FieldHash/t/02_function.t b/ext/Hash-Util-FieldHash/t/02_function.t
index 738209c..df03142 100644
--- a/ext/Hash-Util-FieldHash/t/02_function.t
+++ b/ext/Hash-Util-FieldHash/t/02_function.t
@@ -1,12 +1,4 @@
 #!perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use strict; use warnings;
 use Test::More;
 my $n_tests = 0;
diff --git a/ext/Hash-Util-FieldHash/t/03_class.t b/ext/Hash-Util-FieldHash/t/03_class.t
index f064fcc..0ac5a92 100644
--- a/ext/Hash-Util-FieldHash/t/03_class.t
+++ b/ext/Hash-Util-FieldHash/t/03_class.t
@@ -1,12 +1,4 @@
 #!perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use strict; use warnings;
 use Test::More;
 my $n_tests = 0;
diff --git a/ext/Hash-Util-FieldHash/t/04_thread.t b/ext/Hash-Util-FieldHash/t/04_thread.t
index b74d2c8..d9e6894 100644
--- a/ext/Hash-Util-FieldHash/t/04_thread.t
+++ b/ext/Hash-Util-FieldHash/t/04_thread.t
@@ -1,12 +1,4 @@
 #!perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use strict; use warnings;
 use Test::More;
 my $n_tests;
diff --git a/ext/Hash-Util-FieldHash/t/05_perlhook.t b/ext/Hash-Util-FieldHash/t/05_perlhook.t
index 3a4ebc8..92c6b7a 100644
--- a/ext/Hash-Util-FieldHash/t/05_perlhook.t
+++ b/ext/Hash-Util-FieldHash/t/05_perlhook.t
@@ -1,12 +1,4 @@
 #!perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use strict; use warnings;
 use Test::More;
 my $n_tests;
diff --git a/ext/Hash-Util-FieldHash/t/10_hash.t b/ext/Hash-Util-FieldHash/t/10_hash.t
index 29c2f4d..2cfb4e8 100644
--- a/ext/Hash-Util-FieldHash/t/10_hash.t
+++ b/ext/Hash-Util-FieldHash/t/10_hash.t
@@ -1,12 +1,4 @@
 #!./perl -w
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use Test::More;
 
 use strict;
diff --git a/ext/Hash-Util-FieldHash/t/11_hashassign.t b/ext/Hash-Util-FieldHash/t/11_hashassign.t
index a42682f..8e25811 100644
--- a/ext/Hash-Util-FieldHash/t/11_hashassign.t
+++ b/ext/Hash-Util-FieldHash/t/11_hashassign.t
@@ -1,12 +1,4 @@
 #!./perl -w
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use Test::More;
 
 # use strict;
diff --git a/ext/Hash-Util-FieldHash/t/12_hashwarn.t b/ext/Hash-Util-FieldHash/t/12_hashwarn.t
index 9d4474d..5841c80 100644
--- a/ext/Hash-Util-FieldHash/t/12_hashwarn.t
+++ b/ext/Hash-Util-FieldHash/t/12_hashwarn.t
@@ -1,12 +1,4 @@
 #!./perl
-
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
-    }
-}
-
 use Test::More;
 
 plan( tests => 12 );
diff --git a/t/TEST b/t/TEST
index 5cbe0e3..fdf3d05 100755
--- a/t/TEST
+++ b/t/TEST
@@ -30,7 +30,6 @@ my %temp_no_core =
      '../ext/Compress-Raw-Zlib' => 1,
      '../ext/Devel-PPPort' => 1,
      '../ext/Encode' => 1,
-     '../ext/Hash-Util-FieldHash' => 'fixme',
      '../ext/I18N-Langinfo' => 'fixme',
      '../ext/IO-Compress' => 1,
      '../ext/IPC-SysV' => 1,