cpan/IO-Compress/t/101truncate-zip.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 => 7732 + $extra;
  26
  27 };
  28
  29
  30
  31
  32
  33 use IO::Compress::Zip     qw($ZipError) ;
  34 use IO::Uncompress::Unzip qw($UnzipError) ;
  35
  36 sub identify
  37 {
  38     'IO::Compress::Zip';
  39 }
  40
  41 require "truncate.pl" ;
  42 run();