ext/IO-Compress/t/101truncate-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 Test::More skip_all => "not implemented yet";
  13 use Test::More ;
  14
  15 BEGIN {
  16     # use Test::NoWarnings, if available
  17     my $extra = 0 ;
  18     $extra = 1
  19         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
  20
  21     plan tests => 978 + $extra;
  22
  23 };
  24
  25
  26
  27 use IO::Compress::Gzip     qw($GzipError) ;
  28 use IO::Uncompress::Gunzip qw($GunzipError) ;
  29
  30 sub identify
  31 {
  32     return 'IO::Compress::Gzip';
  33 }
  34
  35 require "truncate.pl" ;
  36 run();