4 @INC = ("../lib", "lib/compress");
8 use lib qw(t t/compress);
18 # use Test::NoWarnings, if available
21 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
23 plan tests => 15 + $extra ;
25 use_ok('IO::Uncompress::AnyInflate', qw($AnyInflateError)) ;
32 This is not compressed data
35 my $buffer = $string ;
39 title "AnyInflate with Non-compressed data (File $file)" ;
41 my $lex = new LexFile my $output;
45 writeFile($output, $buffer);
55 $unc = new IO::Uncompress::AnyInflate $input, -Transparent => 0 ;
56 ok ! $unc," no AnyInflate object when -Transparent => 0" ;
60 $unc = new IO::Uncompress::AnyInflate \$buffer, -Transparent => 1 ;
61 ok $unc, " AnyInflate object when -Transparent => 1" ;
64 ok $unc->read($uncomp) > 0 ;
66 #ok $unc->type eq $Type;