Move IO::Compress from ext/ to cpan/
[perl.git] / ext / IO-Zlib / t / uncomp1.t
1 use IO::Zlib;
2
3 sub ok
4 {
5     my ($no, $ok) = @_ ;
6
7     #++ $total ;
8     #++ $totalBad unless $ok ;
9
10     print "ok $no\n" if $ok ;
11     print "not ok $no\n" unless $ok ;
12 }
13
14 print "1..10\n";
15
16 $hello = <<EOM ;
17 hello world
18 this is a test
19 EOM
20
21 $name = "test$$";
22
23 if (open(FH, ">$name")) {
24     binmode FH;
25     print FH $hello;
26     close FH;
27 } else {
28     die "$name: $!";
29 }
30
31 ok(1, $file = IO::Zlib->new());
32 ok(2, $file->open($name, "rb"));
33 ok(3, !$file->eof());
34 ok(4, $file->read($uncomp, 1024) == length($hello));
35 ok(5, $file->eof());
36 ok(6, $file->opened());
37 ok(7, $file->close());
38 ok(8, !$file->opened());
39
40 unlink($name);
41
42 ok(9, $hello eq $uncomp);
43
44 ok(10, !defined(IO::Zlib->new($name, "rb")));
45