13 # use Test::NoWarnings, if available
16 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
23 my $CompressClass = identify();
24 my $UncompressClass = getInverse($CompressClass);
25 my $Error = getErrorRef($CompressClass);
26 my $UnError = getErrorRef($UncompressClass);
33 some more stuff on this line
37 print "#\n# Testing $UncompressClass\n#\n";
39 my $compressed = mkComplete($CompressClass, $hello);
40 my $cc = $compressed ;
42 plan tests => (length($compressed) * 6 * 7) + 1 + $extra ;
44 is anyUncompress(\$cc), $hello ;
46 for my $blocksize (1, 2, 13)
48 for my $i (0 .. length($compressed) - 1)
50 for my $useBuf (0 .. 1)
52 print "#\n# BlockSize $blocksize, Length $i, Buffer $useBuf\n#\n" ;
53 my $lex = new LexFile my $name ;
55 my $prime = substr($compressed, 0, $i);
56 my $rest = substr($compressed, $i);
64 writeFile($name, $rest);
67 #my $gz = new $UncompressClass $name,
68 my $gz = new $UncompressClass $start,
70 -BlockSize => $blocksize,
78 $status = $gz->read($un) while $status > 0 ;
81 or print "Error is '" . $gz->error() . "'\n";