cpan/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     plan skip_all => "Lengthy Tests Disabled\n" .
  17                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
  18         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
  19
  20     # use Test::NoWarnings, if available
  21     my $extra = 0 ;
  22     $extra = 1
  23         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
  24
  25     plan tests => 3040 + $extra;
  26
  27 };
  28
  29
  30
  31 use IO::Compress::Gzip     qw($GzipError) ;
  32 use IO::Uncompress::Gunzip qw($GunzipError) ;
  33
  34 sub identify
  35 {
  36     return 'IO::Compress::Gzip';
  37 }
  38
  39 require "truncate.pl" ;
  40 run();