1use strict;
2use warnings;
3
4use IO::Zlib;
5
6sub ok
7{
8    my ($no, $ok) = @_ ;
9    print "ok $no\n" if $ok ;
10    print "not ok $no\n" unless $ok ;
11}
12
13my $name = "test_tied_$$.gz";
14
15print "1..11\n";
16
17my $hello = <<EOM ;
18hello world
19this is a test
20EOM
21
22ok(1, tie *OUT, "IO::Zlib", $name, "wb");
23ok(2, printf OUT "%s - %d\n", "hello", 123);
24ok(3, print OUT $hello);
25ok(4, untie *OUT);
26
27my $uncomp;
28
29ok(5, tie *IN, "IO::Zlib", $name, "rb");
30ok(6, !eof IN);
31ok(7, <IN> eq "hello - 123\n");
32ok(8, read(IN, $uncomp, 1024) == length($hello));
33ok(9, eof IN);
34ok(10, untie *IN);
35
36unlink($name);
37
38ok(11, $hello eq $uncomp);
39