8 #++ $totalBad unless $ok ;
10 print "ok $no\n" if $ok ;
11 print "not ok $no\n" unless $ok ;
22 $contents .= chr(int(rand(255)));
25 ok(1, $file = IO::Zlib->new($name, "wb"));
26 ok(2, $file->print($contents));
27 ok(3, $file->close());
29 ok(4, $file = IO::Zlib->new($name, "rb"));
30 ok(5, $file->read($uncomp, 8192) == length($contents));
31 ok(6, $file->close());
35 ok(7, $contents eq $uncomp);