From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 4 Sep 2009 16:36:31 +0000 (+0100)
Subject: Remove PERL_CORE boilerplate from IO::Zlib's tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37bea34e994ad105df9af2a09b8df68963861164;p=p5sagit%2Fp5-mst-13.2.git

Remove PERL_CORE boilerplate from IO::Zlib's tests.

(Without this they don't pass in their new location in ext.)
---

diff --git a/ext/IO-Zlib/t/basic.t b/ext/IO-Zlib/t/basic.t
index fc8da72..80aed9c 100644
--- a/ext/IO-Zlib/t/basic.t
+++ b/ext/IO-Zlib/t/basic.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/external.t b/ext/IO-Zlib/t/external.t
index 765c549..1d90d7f 100644
--- a/ext/IO-Zlib/t/external.t
+++ b/ext/IO-Zlib/t/external.t
@@ -1,10 +1,3 @@
-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/ext/IO-Zlib/t/getc.t b/ext/IO-Zlib/t/getc.t
index a3030c7..2424d5b 100644
--- a/ext/IO-Zlib/t/getc.t
+++ b/ext/IO-Zlib/t/getc.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/getline.t b/ext/IO-Zlib/t/getline.t
index 237160b..fed17da 100644
--- a/ext/IO-Zlib/t/getline.t
+++ b/ext/IO-Zlib/t/getline.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/import.t b/ext/IO-Zlib/t/import.t
index 3cbaa61..336d80a 100644
--- a/ext/IO-Zlib/t/import.t
+++ b/ext/IO-Zlib/t/import.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 print "1..1\n";
 
 sub ok
diff --git a/ext/IO-Zlib/t/large.t b/ext/IO-Zlib/t/large.t
index ef5d164..0203182 100644
--- a/ext/IO-Zlib/t/large.t
+++ b/ext/IO-Zlib/t/large.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/tied.t b/ext/IO-Zlib/t/tied.t
index b6eebe6..029b282 100644
--- a/ext/IO-Zlib/t/tied.t
+++ b/ext/IO-Zlib/t/tied.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/uncomp1.t b/ext/IO-Zlib/t/uncomp1.t
index 3f19805..884af47 100644
--- a/ext/IO-Zlib/t/uncomp1.t
+++ b/ext/IO-Zlib/t/uncomp1.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 use IO::Zlib;
 
 sub ok
diff --git a/ext/IO-Zlib/t/uncomp2.t b/ext/IO-Zlib/t/uncomp2.t
index c9057ae..e760fde 100644
--- a/ext/IO-Zlib/t/uncomp2.t
+++ b/ext/IO-Zlib/t/uncomp2.t
@@ -1,10 +1,3 @@
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-	@INC = '../lib';
-	chdir 't';
-    }
-}
-
 require IO::Zlib; # uncomp2.t is like uncomp1.t but without 'use'
 
 sub ok