Index: cpan/Compress-Raw-Zlib/t/02zlib.t =================================================================== --- cpan/Compress-Raw-Zlib/t/02zlib.t.orig +++ cpan/Compress-Raw-Zlib/t/02zlib.t @@ -24,13 +24,13 @@ BEGIN my $count = 0 ; if ($] < 5.005) { - $count = 232 ; + $count = 236 ; } elsif ($] >= 5.006) { - $count = 317 ; + $count = 320 ; } else { - $count = 275 ; + $count = 278 ; } plan tests => $count + $extra; @@ -537,6 +537,7 @@ SKIP: $status = $x->deflate($hello, $Answer) ; cmp_ok $status, '==', Z_OK ; + cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ; $input .= $hello; # error cases @@ -561,6 +562,7 @@ SKIP: $status = $x->deflate($goodbye, $Answer) ; cmp_ok $status, '==', Z_OK ; + cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ; $input .= $goodbye; # change only Level @@ -572,6 +574,7 @@ SKIP: $status = $x->deflate($goodbye, $Answer) ; cmp_ok $status, '==', Z_OK ; + cmp_ok $x->flush($Answer, Z_BLOCK), '==', Z_OK ; $input .= $goodbye; # change only Strategy