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 12use Test::More ; 13 14BEGIN { 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 => 4012 + $extra; 21 22}; 23 24 25#use Test::More skip_all => "not implemented yet"; 26 27 28use IO::Compress::Bzip2 qw($Bzip2Error) ; 29use IO::Uncompress::Bunzip2 qw($Bunzip2Error) ; 30 31sub identify 32{ 33 'IO::Compress::Bzip2'; 34} 35 36require "truncate.pl" ; 37run(); 38