4 @INC = ("../lib", "lib/compress");
8 use lib qw(t t/compress);
15 # use Test::NoWarnings, if available
18 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
20 plan tests => 625 + $extra;
25 use IO::Compress::RawDeflate qw($RawDeflateError) ;
26 use IO::Uncompress::RawInflate qw($RawInflateError) ;
30 # 'IO::Compress::RawDeflate';
33 #require "truncate.pl" ;
41 some more stuff on this line
48 foreach my $CompressClass ( 'IO::Compress::RawDeflate')
50 my $UncompressClass = getInverse($CompressClass);
51 my $Error = getErrorRef($UncompressClass);
54 ok( my $x = new IO::Compress::RawDeflate \$compressed);
55 ok $x->write($hello) ;
59 my $cc = $compressed ;
62 ok($gz = new $UncompressClass(\$cc,
66 ok $gz->read($un) > 0 ;
70 for my $trans (0 .. 1)
72 title "Testing $CompressClass, Transparent = $trans";
74 my $info = $gz->getHeaderInfo() ;
75 my $header_size = $info->{HeaderLength};
76 my $trailer_size = $info->{TrailerLength};
77 ok 1, "Compressed size is " . length($compressed) ;
78 ok 1, "Header size is $header_size" ;
79 ok 1, "Trailer size is $trailer_size" ;
82 title "Compressed Data Truncation";
83 foreach my $i (0 .. $blocksize)
86 my $lex = new LexFile my $name ;
89 my $part = substr($compressed, 0, $i);
90 writeFile($name, $part);
91 my $gz = new $UncompressClass $name,
92 -BlockSize => $blocksize,
93 -Transparent => $trans;
98 is $gz->read($buff), length $part ;
108 foreach my $i ($blocksize+1 .. length($compressed)-1)
111 my $lex = new LexFile my $name ;
114 my $part = substr($compressed, 0, $i);
115 writeFile($name, $part);
116 ok my $gz = new $UncompressClass $name,
117 -BlockSize => $blocksize,
118 -Transparent => $trans;
121 $status = $gz->read($un) while $status > 0 ;