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 IO::Uncompress::AnyUncompress qw($AnyUncompressError) ;
13
14use IO::Compress::Deflate   qw($DeflateError) ;
15use IO::Uncompress::Inflate qw($InflateError) ;
16
17sub getClass
18{
19    'AnyUncompress';
20}
21
22
23sub identify
24{
25    'IO::Compress::Deflate';
26}
27
28require "any.pl" ;
29run();
30