BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
- @INC = '../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 ;
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;
ok $k->gzeof ;
ok ! $k->gzclose ;
ok $k->gzeof ;
- unlink $name;
}