diff --git a/cpan/Compress-Raw-Zlib/t/02zlib.t b/cpan/Compress-Raw-Zlib/t/02zlib.t index 64c8944..9b2e9cb 100644 --- a/cpan/Compress-Raw-Zlib/t/02zlib.t +++ b/cpan/Compress-Raw-Zlib/t/02zlib.t @@ -13,6 +13,7 @@ use bytes; use Test::More ; use CompTestUtils; +use constant ZLIB_1_2_12_0 => 0x12C0; BEGIN { @@ -490,7 +491,16 @@ SKIP: last if $status == Z_STREAM_END or $status != Z_OK ; } - cmp_ok $status, '==', Z_DATA_ERROR ; + # Z_STREAM_END returned by 1.12.2, Z_DATA_ERROR for older zlib + if (ZLIB_VERNUM >= ZLIB_1_2_12_0) + { + cmp_ok $status, '==', Z_STREAM_END ; + } + else + { + cmp_ok $status, '==', Z_DATA_ERROR ; + } + is $GOT, $goodbye ; @@ -514,7 +524,17 @@ SKIP: is length($rest), $len2, "expected compressed output"; $GOT = ''; - cmp_ok $k->inflate($rest, $GOT), '==', Z_DATA_ERROR, "inflate returns Z_DATA_ERROR"; + $status = $k->inflate($rest, $GOT); + # Z_STREAM_END returned by 1.12.2, Z_DATA_ERROR for older zlib + if (ZLIB_VERNUM >= ZLIB_1_2_12_0) + { + cmp_ok $status, '==', Z_STREAM_END ; + } + else + { + cmp_ok $status, '==', Z_DATA_ERROR ; + } + is $GOT, $goodbye ; } diff --git a/cpan/IO-Compress/t/cz-03zlib-v1.t b/cpan/IO-Compress/t/cz-03zlib-v1.t index 9b75f9b..41734d0 100644 --- a/cpan/IO-Compress/t/cz-03zlib-v1.t +++ b/cpan/IO-Compress/t/cz-03zlib-v1.t @@ -14,6 +14,8 @@ use Test::More ; use CompTestUtils; use Symbol; +use constant ZLIB_1_2_12_0 => 0x12C0; + BEGIN { # use Test::NoWarnings, if available @@ -700,7 +702,16 @@ EOM ($GOT, $status) = $k->inflate($rest) ; - ok $status == Z_DATA_ERROR ; + # Z_STREAM_END returned by 1.12.2, Z_DATA_ERROR for older zlib + if (ZLIB_VERNUM >= ZLIB_1_2_12_0) + { + cmp_ok $status, '==', Z_STREAM_END ; + } + else + { + cmp_ok $status, '==', Z_DATA_ERROR ; + } + ok $Z . $GOT eq $goodbye ; }