From: David Mitchell <davem@iabyn.com>
Date: Mon, 6 Jul 2009 14:39:34 +0000 (+0100)
Subject: add core boilerplate to three new Test::Simple tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45d8b36ec02e88acbbf23bf2514e70f8acb71985;p=p5sagit%2Fp5-mst-13.2.git

add core boilerplate to three new Test::Simple tests
---

diff --git a/lib/Test/Simple/t/Builder/done_testing_double.t b/lib/Test/Simple/t/Builder/done_testing_double.t
index d696384..3a0bae2 100644
--- a/lib/Test/Simple/t/Builder/done_testing_double.t
+++ b/lib/Test/Simple/t/Builder/done_testing_double.t
@@ -1,7 +1,15 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib 't/lib';
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib');
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
 
 use Test::Builder;
 use Test::Builder::NoOutput;
diff --git a/lib/Test/Simple/t/Builder/done_testing_plan_mismatch.t b/lib/Test/Simple/t/Builder/done_testing_plan_mismatch.t
index b815437..8208635 100644
--- a/lib/Test/Simple/t/Builder/done_testing_plan_mismatch.t
+++ b/lib/Test/Simple/t/Builder/done_testing_plan_mismatch.t
@@ -3,7 +3,15 @@
 # What if there's a plan and done_testing but they don't match?
 
 use strict;
-use lib 't/lib';
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib');
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
 
 use Test::Builder;
 use Test::Builder::NoOutput;
diff --git a/lib/Test/Simple/t/Builder/no_plan_at_all.t b/lib/Test/Simple/t/Builder/no_plan_at_all.t
index 3909cfe..9029f6f 100644
--- a/lib/Test/Simple/t/Builder/no_plan_at_all.t
+++ b/lib/Test/Simple/t/Builder/no_plan_at_all.t
@@ -3,7 +3,15 @@
 # Test what happens when no plan is delcared and done_testing() is not seen
 
 use strict;
-use lib 't/lib';
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib');
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
 
 use Test::Builder;
 use Test::Builder::NoOutput;