This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #110736] warnings from cpan/IO-Compress/t/cz-03zlib-v1.t
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 23 Mar 2012 17:07:24 +0000 (17:07 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 12 Apr 2012 16:43:54 +0000 (17:43 +0100)
Backported t/cz-03zlib-v1.t from IO-Compress-2.049

cpan/IO-Compress/t/cz-03zlib-v1.t

index 8b804cb..a85ed10 100644 (file)
@@ -26,7 +26,7 @@ BEGIN
         $count = 453 ;
     }
     else {
-        $count = 464 ;
+        $count = 471 ;
     }
 
 
@@ -1231,20 +1231,38 @@ sub trickle
 
 
 {
-    title "repeated calls to flush";
+    title "repeated calls to flush - no compression";
+
+    my ($err, $x, $X, $status, $data); 
+    ok( ($x, $err) = deflateInit ( ), "Create deflate object" );
+    isa_ok $x, "Compress::Raw::Zlib::deflateStream" ;
+    cmp_ok $err, '==', Z_OK, "status is Z_OK" ;
+
+    
+    ($data, $status) = $x->flush(Z_SYNC_FLUSH) ;
+    cmp_ok  $status, '==', Z_OK, "flush returned Z_OK" ;    
+    ($data, $status) = $x->flush(Z_SYNC_FLUSH) ;
+    cmp_ok  $status, '==', Z_OK, "second flush returned Z_OK" ;    
+    is $data, "", "no output from second flush";
+}
+
+{
+    title "repeated calls to flush - after compression";
 
     my $hello = "I am a HAL 9000 computer" ;
-    my ($err, $x, $X, $status); 
+    my ($err, $x, $X, $status, $data); 
  
     ok( ($x, $err) = deflateInit ( ), "Create deflate object" );
     isa_ok $x, "Compress::Raw::Zlib::deflateStream" ;
     cmp_ok $err, '==', Z_OK, "status is Z_OK" ;
  
-    $status = $x->deflate($hello, $X) ;
+    ($data, $status) = $x->deflate($hello) ;
     cmp_ok $status, '==', Z_OK, "deflate returned Z_OK" ;
     
-    cmp_ok  $x->flush($X, Z_SYNC_FLUSH), '==', Z_OK, "flush returned Z_OK" ;    
-    $X = '';
-    cmp_ok  $x->flush($X, Z_SYNC_FLUSH), '==', Z_OK, "second flush returned Z_OK" ; 
-    is $X, "", "no output from second flush";
+    ($data, $status) = $x->flush(Z_SYNC_FLUSH) ;
+    cmp_ok  $status, '==', Z_OK, "flush returned Z_OK" ;    
+    ($data, $status) = $x->flush(Z_SYNC_FLUSH) ;
+    cmp_ok  $status, '==', Z_OK, "second flush returned Z_OK" ;    
+    is $data, "", "no output from second flush";
 }