Adjust test preambles for Hash::Util::FieldHash tests to change

the @INC path only when testing inside the core

p4raw-id: //depot/perl@28432

diff --git a/ext/Hash/Util/FieldHash/t/01_load.t b/ext/Hash/Util/FieldHash/t/01_load.t
index 952f2a3..a881cea 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/01_load.t
+++ b/ext/Hash/Util/FieldHash/t/01_load.t
@@ -1,8 +1,10 @@
 #!perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use strict; use warnings;

diff --git a/ext/Hash/Util/FieldHash/t/02_function.t b/ext/Hash/Util/FieldHash/t/02_function.t
index a89bf2e..877d85e 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/02_function.t
+++ b/ext/Hash/Util/FieldHash/t/02_function.t
@@ -1,8 +1,10 @@
 #!perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use strict; use warnings;

diff --git a/ext/Hash/Util/FieldHash/t/03_class.t b/ext/Hash/Util/FieldHash/t/03_class.t
index 027b43c..f064fcc 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/03_class.t
+++ b/ext/Hash/Util/FieldHash/t/03_class.t
@@ -1,8 +1,10 @@
 #!perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use strict; use warnings;

diff --git a/ext/Hash/Util/FieldHash/t/04_thread.t b/ext/Hash/Util/FieldHash/t/04_thread.t
index 0693522..5197b90 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/04_thread.t
+++ b/ext/Hash/Util/FieldHash/t/04_thread.t
@@ -1,8 +1,10 @@
 #!perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use strict; use warnings;

diff --git a/ext/Hash/Util/FieldHash/t/05_perlhook.t b/ext/Hash/Util/FieldHash/t/05_perlhook.t
index 73f8654..bc9ff95 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/05_perlhook.t
+++ b/ext/Hash/Util/FieldHash/t/05_perlhook.t
@@ -1,8 +1,10 @@
 #!perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use strict; use warnings;

diff --git a/ext/Hash/Util/FieldHash/t/10_hash.t b/ext/Hash/Util/FieldHash/t/10_hash.t
index 80de722..5c56675 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/10_hash.t
+++ b/ext/Hash/Util/FieldHash/t/10_hash.t
@@ -1,8 +1,10 @@
 #!./perl -w
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use Test::More;

diff --git a/ext/Hash/Util/FieldHash/t/11_hashassign.t b/ext/Hash/Util/FieldHash/t/11_hashassign.t
index 205f36e..a42682f 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/11_hashassign.t
+++ b/ext/Hash/Util/FieldHash/t/11_hashassign.t
@@ -1,8 +1,10 @@
 #!./perl -w
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use Test::More;

diff --git a/ext/Hash/Util/FieldHash/t/12_hashwarn.t b/ext/Hash/Util/FieldHash/t/12_hashwarn.t
index 94509d2..9d4474d 100644 (file)
--- a/ext/Hash/Util/FieldHash/t/12_hashwarn.t
+++ b/ext/Hash/Util/FieldHash/t/12_hashwarn.t
@@ -1,8 +1,10 @@
 #!./perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if ($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
 }
 
 use Test::More;