From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 5 Oct 2005 21:03:29 +0000 (+0000)
Subject: Add test preambles to Compress::Zlib.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16816334e212c70aca1836b4031924af481891ad;p=p5sagit%2Fp5-mst-13.2.git

Add test preambles to Compress::Zlib.
Remove 99pod.t, useless in the core

p4raw-id: //depot/perl@25698
---

diff --git a/MANIFEST b/MANIFEST
index 531479d..ef0351c 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -198,7 +198,6 @@ ext/Compress/Zlib/t/20tied.t	Compress::Zlib
 ext/Compress/Zlib/t/21newtied.t	Compress::Zlib
 ext/Compress/Zlib/t/22merge.t	Compress::Zlib
 ext/Compress/Zlib/t/23misc.t	Compress::Zlib
-ext/Compress/Zlib/t/99pod.t	Compress::Zlib
 ext/Compress/Zlib/t/globmapper.t	Compress::Zlib
 ext/Compress/Zlib/typemap	Compress::Zlib
 ext/Compress/Zlib/Zlib.pm	Compress::Zlib
diff --git a/ext/Compress/Zlib/t/01version.t b/ext/Compress/Zlib/t/01version.t
index bdb8a9a..f1accce 100644
--- a/ext/Compress/Zlib/t/01version.t
+++ b/ext/Compress/Zlib/t/01version.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict ;
diff --git a/ext/Compress/Zlib/t/02zlib.t b/ext/Compress/Zlib/t/02zlib.t
index 530e221..032caf0 100644
--- a/ext/Compress/Zlib/t/02zlib.t
+++ b/ext/Compress/Zlib/t/02zlib.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/03zlib-v1.t b/ext/Compress/Zlib/t/03zlib-v1.t
index a0950c2..de81966 100644
--- a/ext/Compress/Zlib/t/03zlib-v1.t
+++ b/ext/Compress/Zlib/t/03zlib-v1.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/04def.t b/ext/Compress/Zlib/t/04def.t
index b0416e8..ff46f58 100644
--- a/ext/Compress/Zlib/t/04def.t
+++ b/ext/Compress/Zlib/t/04def.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/05examples.t b/ext/Compress/Zlib/t/05examples.t
index 82b30d3..8d96b9b 100644
--- a/ext/Compress/Zlib/t/05examples.t
+++ b/ext/Compress/Zlib/t/05examples.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 
diff --git a/ext/Compress/Zlib/t/06gzsetp.t b/ext/Compress/Zlib/t/06gzsetp.t
index 7506c5a..1723da4 100644
--- a/ext/Compress/Zlib/t/06gzsetp.t
+++ b/ext/Compress/Zlib/t/06gzsetp.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/07bufsize.t b/ext/Compress/Zlib/t/07bufsize.t
index 0670c06..df518bf 100644
--- a/ext/Compress/Zlib/t/07bufsize.t
+++ b/ext/Compress/Zlib/t/07bufsize.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/08encoding.t b/ext/Compress/Zlib/t/08encoding.t
index 978212e..1dab466 100644
--- a/ext/Compress/Zlib/t/08encoding.t
+++ b/ext/Compress/Zlib/t/08encoding.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/09gziphdr.t b/ext/Compress/Zlib/t/09gziphdr.t
index 8abb70a..f71c8cf 100644
--- a/ext/Compress/Zlib/t/09gziphdr.t
+++ b/ext/Compress/Zlib/t/09gziphdr.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/10defhdr.t b/ext/Compress/Zlib/t/10defhdr.t
index 9c109ec..d75431c 100644
--- a/ext/Compress/Zlib/t/10defhdr.t
+++ b/ext/Compress/Zlib/t/10defhdr.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/11truncate.t b/ext/Compress/Zlib/t/11truncate.t
index a4e7fbe..5aa9ef0 100644
--- a/ext/Compress/Zlib/t/11truncate.t
+++ b/ext/Compress/Zlib/t/11truncate.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/12any.t b/ext/Compress/Zlib/t/12any.t
index 7939358..77cf608 100644
--- a/ext/Compress/Zlib/t/12any.t
+++ b/ext/Compress/Zlib/t/12any.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
  
diff --git a/ext/Compress/Zlib/t/13prime.t b/ext/Compress/Zlib/t/13prime.t
index bc8a09e..959a83d 100644
--- a/ext/Compress/Zlib/t/13prime.t
+++ b/ext/Compress/Zlib/t/13prime.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
+
 use lib 't';
 use strict;
 use warnings;
diff --git a/ext/Compress/Zlib/t/14gzopen.t b/ext/Compress/Zlib/t/14gzopen.t
index b15c353..ea30fd7 100644
--- a/ext/Compress/Zlib/t/14gzopen.t
+++ b/ext/Compress/Zlib/t/14gzopen.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/15multi.t b/ext/Compress/Zlib/t/15multi.t
index fbbc64e..dee57dd 100644
--- a/ext/Compress/Zlib/t/15multi.t
+++ b/ext/Compress/Zlib/t/15multi.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/16oneshot.t b/ext/Compress/Zlib/t/16oneshot.t
index b08960a..ad6a817 100644
--- a/ext/Compress/Zlib/t/16oneshot.t
+++ b/ext/Compress/Zlib/t/16oneshot.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/17isize.t b/ext/Compress/Zlib/t/17isize.t
index 4241fe7..ef7bb8b 100644
--- a/ext/Compress/Zlib/t/17isize.t
+++ b/ext/Compress/Zlib/t/17isize.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict ;
diff --git a/ext/Compress/Zlib/t/18lvalue.t b/ext/Compress/Zlib/t/18lvalue.t
index 5f9e43d..d63ffba 100644
--- a/ext/Compress/Zlib/t/18lvalue.t
+++ b/ext/Compress/Zlib/t/18lvalue.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/19destroy.t b/ext/Compress/Zlib/t/19destroy.t
index a2671f7..c2d0361 100644
--- a/ext/Compress/Zlib/t/19destroy.t
+++ b/ext/Compress/Zlib/t/19destroy.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/20tied.t b/ext/Compress/Zlib/t/20tied.t
index 7d708d1..778075d 100644
--- a/ext/Compress/Zlib/t/20tied.t
+++ b/ext/Compress/Zlib/t/20tied.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/21newtied.t b/ext/Compress/Zlib/t/21newtied.t
index 9238786..bb93516 100644
--- a/ext/Compress/Zlib/t/21newtied.t
+++ b/ext/Compress/Zlib/t/21newtied.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/22merge.t b/ext/Compress/Zlib/t/22merge.t
index bdffaa3..07fa185 100644
--- a/ext/Compress/Zlib/t/22merge.t
+++ b/ext/Compress/Zlib/t/22merge.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/23misc.t b/ext/Compress/Zlib/t/23misc.t
index f1619d8..6e472a1 100644
--- a/ext/Compress/Zlib/t/23misc.t
+++ b/ext/Compress/Zlib/t/23misc.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict;
diff --git a/ext/Compress/Zlib/t/99pod.t b/ext/Compress/Zlib/t/99pod.t
deleted file mode 100644
index c86213f..0000000
--- a/ext/Compress/Zlib/t/99pod.t
+++ /dev/null
@@ -1,9 +0,0 @@
-use lib 't';
-use Test::More;
-
-eval "use Test::Pod 1.00";
-
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-
-all_pod_files_ok();
-
diff --git a/ext/Compress/Zlib/t/globmapper.t b/ext/Compress/Zlib/t/globmapper.t
index 8d90e25..b30143e 100644
--- a/ext/Compress/Zlib/t/globmapper.t
+++ b/ext/Compress/Zlib/t/globmapper.t
@@ -1,3 +1,9 @@
+BEGIN {
+    if ($ENV{PERL_CORE} {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
 
 use lib 't';
 use strict ;