ext/Compress/IO/Zlib/t/002any-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
  12
  13 use IO::Uncompress::AnyInflate qw($AnyInflateError) ;
  14
  15 use IO::Compress::Deflate   qw($DeflateError) ;
  16 use IO::Uncompress::Inflate qw($InflateError) ;
  17
  18 sub getClass
  19 {
  20     'AnyInflate';
  21 }
  22
  23 sub identify
  24 {
  25     'IO::Compress::Deflate';
  26 }
  27
  28 require "any.pl" ;
  29 run();