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