vcs.maemo.org Git - pkg-perl/blob - deb-src/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/002any-rawdeflate.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 use IO::Uncompress::AnyInflate qw($AnyInflateError) ;
  13 use IO::Compress::RawDeflate   qw($RawDeflateError) ;
  14 use IO::Uncompress::RawInflate qw($RawInflateError) ;
  15
  16 sub getClass
  17 {
  18     'AnyInflate';
  19 }
  20
  21
  22 sub identify
  23 {
  24     'IO::Compress::RawDeflate';
  25 }
  26
  27 require "any.pl" ;
  28 run();