Commit | Line | Data |
---|---|---|
25f0751f PM |
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 skip_all => "not implemented yet"; | |
13 | use Test::More ; | |
14 | ||
15 | BEGIN { | |
16 | # use Test::NoWarnings, if available | |
17 | my $extra = 0 ; | |
18 | $extra = 1 | |
19 | if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; | |
20 | ||
c70c1701 | 21 | plan tests => 2316 + $extra; |
25f0751f PM |
22 | |
23 | }; | |
24 | ||
25 | ||
26 | ||
27 | ||
28 | ||
29 | use IO::Compress::Zip qw($ZipError) ; | |
30 | use IO::Uncompress::Unzip qw($UnzipError) ; | |
31 | ||
32 | sub identify | |
33 | { | |
34 | 'IO::Compress::Zip'; | |
35 | } | |
36 | ||
37 | require "truncate.pl" ; | |
38 | run(); |