1BEGIN { 2 if ($ENV{PERL_CORE}) { 3 chdir 't' if -d 't'; 4 @INC = ("../lib", "lib/compress"); 5 } 6} 7 8use lib qw(t t/compress); 9use strict; 10use warnings; 11 12#use Test::More skip_all => "not implemented yet"; 13use Test::More ; 14 15BEGIN { 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 => 3544 + $extra; 22 23}; 24 25 26 27use IO::Compress::Gzip qw($GzipError) ; 28use IO::Uncompress::Gunzip qw($GunzipError) ; 29 30sub identify 31{ 32 return 'IO::Compress::Gzip'; 33} 34 35require "truncate.pl" ; 36run(); 37