Update Compress Modules to version 2.002

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 06gzsetp.t

diff --git a/ext/Compress/Zlib/t/06gzsetp.t b/ext/Compress/Zlib/t/06gzsetp.t
index 68dd0d1..0f8d83d 100644 (file)
--- a/ext/Compress/Zlib/t/06gzsetp.t
+++ b/ext/Compress/Zlib/t/06gzsetp.t
@@ -1,17 +1,17 @@
 BEGIN {
     if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
-       @INC = ("../lib", "lib");
+       @INC = ("../lib", "lib/compress");
     }
 }
 
-use lib 't';
+use lib qw(t t/compress);
 use strict;
 use warnings;
 use bytes;
  
 use Test::More ;
-use ZlibTestUtils;
+use CompTestUtils;
  
 use Compress::Zlib 2 ;
 
@@ -56,8 +56,7 @@ is Compress::Zlib::zlib_version, ZLIB_VERSION,
 
     my ($input, $err, $answer, $X, $status, $Answer);
      
-    my $name = "test.gz" ;
-    unlink $name ;
+    my $lex = new LexFile my $name ;
     ok my $x = gzopen($name, "wb");
 
     $input .= $hello;
@@ -90,7 +89,6 @@ is Compress::Zlib::zlib_version, ZLIB_VERSION,
     ok $k->gzeof ;
     ok ! $k->gzclose ;
     ok $k->gzeof  ;
-    unlink $name;
 }