From 390630257fd9ca7dc6c4928dbcab2a1ddcfaf2c3 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 6 Jul 2007 16:00:57 +0000
Subject: [PATCH] Add test preambles

p4raw-id: //depot/perl@31542
---
 lib/base/t/base.t        | 7 +++++++
 lib/base/t/fields-base.t | 7 +++++++
 lib/base/t/fields.t      | 7 +++++++
 lib/base/t/warnings.t    | 7 +++++++
 4 files changed, 28 insertions(+)

diff --git a/lib/base/t/base.t b/lib/base/t/base.t
index 8d32064..8a9f3ea 100644
--- a/lib/base/t/base.t
+++ b/lib/base/t/base.t
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 use strict;
 use Test::More tests => 11;
 
diff --git a/lib/base/t/fields-base.t b/lib/base/t/fields-base.t
index e489f7b..0ec12c2 100644
--- a/lib/base/t/fields-base.t
+++ b/lib/base/t/fields-base.t
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 my ($Has_PH, $Field);
 BEGIN { 
     $Has_PH = $] < 5.009;
diff --git a/lib/base/t/fields.t b/lib/base/t/fields.t
index 4999cfe..e9c32a2 100644
--- a/lib/base/t/fields.t
+++ b/lib/base/t/fields.t
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 my $Has_PH;
 BEGIN {
     $Has_PH = $] < 5.009;
diff --git a/lib/base/t/warnings.t b/lib/base/t/warnings.t
index 51e9174..631cc37 100644
--- a/lib/base/t/warnings.t
+++ b/lib/base/t/warnings.t
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 use strict;
 
 use Test::More tests => 1;
-- 
2.7.4