Move IO::Zlib from ext/ to cpan/
[perl.git] / cpan / IO-Zlib / t / getline.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 $name="test.gz";
15
16 print "1..23\n";
17
18 @text = (<<EOM, <<EOM, <<EOM, <<EOM) ;
19 this is line 1
20 EOM
21 the second line
22 EOM
23 the line after the previous line
24 EOM
25 the final line
26 EOM
27
28 $text = join("", @text) ;
29
30 ok(1, $file = IO::Zlib->new($name, "wb"));
31 ok(2, $file->print($text));
32 ok(3, $file->close());
33
34 ok(4, $file = IO::Zlib->new($name, "rb"));
35 ok(5, !$file->eof());
36 ok(6, $file->getline() eq $text[0]);
37 ok(7, $file->getline() eq $text[1]);
38 ok(8, $file->getline() eq $text[2]);
39 ok(9, $file->getline() eq $text[3]);
40 ok(10, !defined($file->getline()));
41 ok(11, $file->eof());
42 ok(12, $file->close());
43
44 ok(13, $file = IO::Zlib->new($name, "rb"));
45 ok(14, !$file->eof());
46 eval '$file->getlines';
47 ok(15, $@ =~ /^IO::Zlib::getlines: must be called in list context /);
48 ok(16, @lines = $file->getlines());
49 ok(17, @lines == @text);
50 ok(18, $lines[0] eq $text[0]);
51 ok(19, $lines[1] eq $text[1]);
52 ok(20, $lines[2] eq $text[2]);
53 ok(21, $lines[3] eq $text[3]);
54 ok(22, $file->eof());
55 ok(23, $file->close());
56
57 unlink($name);