Debian lenny version packages
[pkg-perl] / deb-src / libio-compress-zlib-perl / libio-compress-zlib-perl-2.012 / t / 100generic-deflate.t
1 BEGIN {
2     if ($ENV{PERL_CORE}) {
3         chdir 't' if -d 't';
4         @INC = ("../lib", "lib/compress");
5     }
6 }
7
8 use lib qw(t t/compress);
9 use strict;
10 use warnings;
11 use bytes;
12
13 use IO::Compress::Deflate   qw($DeflateError) ;
14 use IO::Uncompress::Inflate qw($InflateError) ;
15
16 sub identify
17 {
18     'IO::Compress::Deflate';
19 }
20
21 require "generic.pl" ;
22 run();