8 #++ $totalBad unless $ok ;
10 print "ok $no\n" if $ok ;
11 print "not ok $no\n" unless $ok ;
20 ok(1, $file = IO::Zlib->new($name, "wb"));
21 ok(2, $file->print($text));
22 ok(3, $file->close());
24 ok(4, $file = IO::Zlib->new($name, "rb"));
25 ok(5, $file->getc() eq substr($text,0,1));
26 ok(6, $file->getc() eq substr($text,1,1));
27 ok(7, $file->getc() eq substr($text,2,1));
28 ok(8, $file->getc() eq substr($text,3,1));
29 ok(9, $file->getc() eq "");
30 ok(10, $file->close());