git.maemo.org Git - dh-make-perl/blob - dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/105oneshot-gzip.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::Compress::Gzip     qw($GzipError) ;
  13 use IO::Uncompress::Gunzip qw($GunzipError) ;
  14
  15 sub identify
  16 {
  17     'IO::Compress::Gzip';
  18 }
  19
  20 require "oneshot.pl" ;
  21 run();