1 files changed, 35 insertions, 0 deletions
diff --git a/cpan/IO-Zlib/t/large.t b/cpan/IO-Zlib/t/large.t
new file mode 100644
index 0000000000..0203182004
--- /dev/null
+++ b/cpan/IO-Zlib/t/large.t
@@ -0,0 +1,35 @@
+use IO::Zlib;
+
+sub ok
+{
+    my ($no, $ok) = @_ ;
+
+    #++ $total ;
+    #++ $totalBad unless $ok ;
+
+    print "ok $no\n" if $ok ;
+    print "not ok $no\n" unless $ok ;
+}
+
+$name="test.gz";
+
+print "1..7\n";
+
+$contents = "";
+
+foreach (1 .. 5000)
+{
+     $contents .= chr(int(rand(255)));
+}
+
+ok(1, $file = IO::Zlib->new($name, "wb"));
+ok(2, $file->print($contents));
+ok(3, $file->close());
+
+ok(4, $file = IO::Zlib->new($name, "rb"));
+ok(5, $file->read($uncomp, 8192) == length($contents));
+ok(6, $file->close());
+
+unlink($name);
+
+ok(7, $contents eq $uncomp);