8 #++ $totalBad unless $ok ;
10 print "ok $no\n" if $ok ;
11 print "not ok $no\n" unless $ok ;
23 ok(1, $file = IO::Zlib->new($name, "wb"));
24 ok(2, $file->print($hello));
25 ok(3, $file->opened());
26 ok(4, $file->close());
27 ok(5, !$file->opened());
29 ok(6, $file = IO::Zlib->new());
30 ok(7, $file->open($name, "rb"));
32 ok(9, $file->read($uncomp, 1024) == length($hello));
33 ok(10, $uncomp eq $hello);
35 ok(12, $file->opened());
36 ok(13, $file->close());
37 ok(14, !$file->opened());
39 $file = IO::Zlib->new($name, "rb");
40 ok(15, $file->read($uncomp, 1024, length($uncomp)) == length($hello));
41 ok(16, $uncomp eq $hello . $hello);
46 ok(17, !defined(IO::Zlib->new($name, "rb")));