add core boilerplate to three new Test::Simple tests
authorDavid Mitchell <davem@iabyn.com>
Mon, 6 Jul 2009 14:39:34 +0000 (15:39 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 7 Jul 2009 11:05:16 +0000 (12:05 +0100)
(cherry picked from commit 45d8b36ec02e88acbbf23bf2514e70f8acb71985)

lib/Test/Simple/t/Builder/done_testing_double.t
lib/Test/Simple/t/Builder/done_testing_plan_mismatch.t
lib/Test/Simple/t/Builder/no_plan_at_all.t

index d696384..3a0bae2 100644 (file)
@@ -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;
index b815437..8208635 100644 (file)
@@ -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;
index 3909cfe..9029f6f 100644 (file)
@@ -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;