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 (file)
--- 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 (file)
--- 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 (file)
--- 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;