Increase the length of content compressed as a kludge to get
authorSteve Peters <steve@fisharerojo.org>
Wed, 22 Mar 2006 02:18:58 +0000 (02:18 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 22 Mar 2006 02:18:58 +0000 (02:18 +0000)
around incompatibilities in OpenBSD's gzip.

p4raw-id: //depot/perl@27565

ext/Compress/IO/Zlib/t/050interop-gzip.t

index 3d79a5fd897071cb5436a4af5e2962c78bb42515..e380dbd9360434e966f805753b69fe076851179d 100644 (file)
@@ -90,7 +90,11 @@ sub writeWithGzip
     my $file;
     my $file1;
     my $lex = new LexFile $file, $file1;
-    my $content = "hello world\n" ;
+    my $content = qq {
+Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut tempus odio id
+ dolor. Camelus perlus.  Larrius in lumen numen.  Dolor en quiquum filia
+ est.  Quintus cenum parat.
+};
     my $got;
 
     is writeWithGzip($file, $content), 1, "writeWithGzip ok";