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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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,