Compress* 2.006

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 14gzopen.t

diff --git a/ext/Compress/Zlib/t/14gzopen.t b/ext/Compress/Zlib/t/14gzopen.t
index f8011e5..805bb0d 100644 (file)
--- a/ext/Compress/Zlib/t/14gzopen.t
+++ b/ext/Compress/Zlib/t/14gzopen.t
@@ -20,7 +20,7 @@ BEGIN {
     $extra = 1
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
-    plan tests => 217 + $extra ;
+    plan tests => 250 + $extra ;
 
     use_ok('Compress::Zlib', 2) ;
     use_ok('IO::Compress::Gzip::Constants') ;
@@ -601,3 +601,27 @@ foreach my $stdio ( ['-', '-'], [*STDIN, *STDOUT])
     ok defined $buf2, "  output buffer defined";
     is $buf2, "", "  output buffer empty string";
 }
+
+{
+    title 'gzreadline does not support $/';
+
+    my $lex = new LexFile my $name ;
+
+    my $a = gzopen($name, "w");
+    my $text = "fred\n";
+    my $len = length $text;
+    $a->gzwrite($text);
+    $a->gzwrite("\n\n");
+    $a->gzclose ;
+
+    for my $delim ( undef, "", 0, 1, "abc", $text, "\n\n", "\n" )
+    {
+        local $/ = $delim;
+        my $u = gzopen($name, "r");
+        my $line;
+        is $u->gzreadline($line), length $text, "  read $len bytes";
+        is $line, $text, "  got expected line";
+        ok ! $u->gzclose, "  closed" ;
+        is $/, $delim, '  $/ unchanged by gzreadline';
+    }
+}