git.maemo.org Git - dh-make-perl/blob - dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/101truncate-deflate.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 ;
  13
  14 BEGIN {
  15     # use Test::NoWarnings, if available
  16     my $extra = 0 ;
  17     $extra = 1
  18         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
  19
  20     plan tests => 734 + $extra;
  21
  22 };
  23
  24
  25 #use Test::More skip_all => "not implemented yet";
  26
  27
  28 use IO::Compress::Deflate   qw($DeflateError) ;
  29 use IO::Uncompress::Inflate qw($InflateError) ;
  30
  31 sub identify
  32 {
  33     'IO::Compress::Deflate';
  34 }
  35
  36 require "truncate.pl" ;
  37 run();