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