Add core test preamble

p4raw-id: //depot/perl@24842

diff --git a/lib/IO/Zlib/t/basic.t b/lib/IO/Zlib/t/basic.t
index 4957131..2df2b8c 100644 (file)
--- a/lib/IO/Zlib/t/basic.t
+++ b/lib/IO/Zlib/t/basic.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/external.t b/lib/IO/Zlib/t/external.t
index 1d90d7f..765c549 100644 (file)
--- a/lib/IO/Zlib/t/external.t
+++ b/lib/IO/Zlib/t/external.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 # Test this only iff we have an executable /usr/bin/gzip
 # AND we have /usr/bin in our PATH
 # AND we have a useable /usr/bin directory.

diff --git a/lib/IO/Zlib/t/getc.t b/lib/IO/Zlib/t/getc.t
index 2424d5b..a3030c7 100644 (file)
--- a/lib/IO/Zlib/t/getc.t
+++ b/lib/IO/Zlib/t/getc.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/getline.t b/lib/IO/Zlib/t/getline.t
index db18088..4e0d145 100644 (file)
--- a/lib/IO/Zlib/t/getline.t
+++ b/lib/IO/Zlib/t/getline.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/import.t b/lib/IO/Zlib/t/import.t
index 336d80a..3cbaa61 100644 (file)
--- a/lib/IO/Zlib/t/import.t
+++ b/lib/IO/Zlib/t/import.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 print "1..1\n";
 
 sub ok

diff --git a/lib/IO/Zlib/t/large.t b/lib/IO/Zlib/t/large.t
index 0203182..ef5d164 100644 (file)
--- a/lib/IO/Zlib/t/large.t
+++ b/lib/IO/Zlib/t/large.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/tied.t b/lib/IO/Zlib/t/tied.t
index 029b282..b6eebe6 100644 (file)
--- a/lib/IO/Zlib/t/tied.t
+++ b/lib/IO/Zlib/t/tied.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/uncomp1.t b/lib/IO/Zlib/t/uncomp1.t
index 4225ab7..8424a27 100644 (file)
--- a/lib/IO/Zlib/t/uncomp1.t
+++ b/lib/IO/Zlib/t/uncomp1.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 use IO::Zlib;
 
 sub ok

diff --git a/lib/IO/Zlib/t/uncomp2.t b/lib/IO/Zlib/t/uncomp2.t
index 03e7a6b..c8eb6ed 100644 (file)
--- a/lib/IO/Zlib/t/uncomp2.t
+++ b/lib/IO/Zlib/t/uncomp2.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+       @INC = '../lib';
+       chdir 't';
+    }
+}
+
 require IO::Zlib; # uncomp2.t is like uncomp1.t but without 'use'
 
 sub ok