From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 14 Jun 2005 13:49:41 +0000 (+0000)
Subject: Add core test preamble
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0d3aac481b5c4ba30633fed9f9f2dca6771f7bc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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