From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 27 Jul 2009 13:48:21 +0000 (+0200)
Subject: Add core test boilerplate to some base.pm tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e2e2108bd3e781e0030bedb33fdf9102a8de1c7;p=p5sagit%2Fp5-mst-13.2.git

Add core test boilerplate to some base.pm tests
---

diff --git a/lib/base/t/compile-time.t b/lib/base/t/compile-time.t
index 2be51f9..f7ffd1f 100644
--- a/lib/base/t/compile-time.t
+++ b/lib/base/t/compile-time.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 => 3;
 
diff --git a/lib/base/t/fields-5.6.0.t b/lib/base/t/fields-5.6.0.t
index 93bca34..819c335 100644
--- a/lib/base/t/fields-5.6.0.t
+++ b/lib/base/t/fields-5.6.0.t
@@ -7,6 +7,13 @@ if( $] >= 5.009 ) {
     exit;
 }
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
+
 use strict;
 use vars qw($Total_tests);
 
diff --git a/lib/base/t/fields-5.8.0.t b/lib/base/t/fields-5.8.0.t
index 2da1412..af39d0b 100644
--- a/lib/base/t/fields-5.8.0.t
+++ b/lib/base/t/fields-5.8.0.t
@@ -7,6 +7,12 @@ if( $] >= 5.009 ) {
     exit;
 }
 
+BEGIN {
+   if( $ENV{PERL_CORE} ) {
+        chdir 't' if -d 't';
+        @INC = qw(../lib);
+    }
+}
 
 my $w;