diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t')
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t | 86 |
1 files changed, 70 insertions, 16 deletions
diff --git a/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t b/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t index 1eccbd350a4..e6300b5e7b2 100755 --- a/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t +++ b/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/t/01version.t @@ -11,32 +11,86 @@ use warnings ; use Test::More ; -BEGIN -{ +BEGIN +{ # use Test::NoWarnings, if available my $extra = 0 ; $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 2 + $extra ; + plan tests => 9 + $extra ; - use_ok('Compress::Raw::Zlib', 2) ; + use_ok('Compress::Raw::Zlib', 2) ; } +use CompTestUtils; + + # Check zlib_version and ZLIB_VERSION are the same. +test_zlib_header_matches_library(); + +SKIP: +{ + # If running a github workflow that tests upstream zlib/zlib-ng, check we have the version requested + + # Not github or not asking for explicit verson, so skip + skip "Not github", 7 + if ! (defined $ENV{GITHUB_ACTION} && defined $ENV{ZLIB_VERSION}) ; + + my $expected_version = $ENV{ZLIB_VERSION} ; + # zlib prefixes tags with a "v", so remove + $expected_version =~ s/^v//i; -my $zlib_h = ZLIB_VERSION ; -my $libz = Compress::Raw::Zlib::zlib_version; + skip "Skipping version tests for 'develop' branch", 7 + if ($expected_version eq 'develop') ; -is($zlib_h, $libz, "ZLIB_VERSION ($zlib_h) matches Compress::Raw::Zlib::zlib_version") - or diag <<EOM; + if ($ENV{USE_ZLIB_NG}) + { + # zlib-ng native + my $zv = Compress::Raw::Zlib::zlibng_version(); + is substr($zv, 0, length($expected_version)), $expected_version, "Expected version is $expected_version"; + ok ! Compress::Raw::Zlib::is_zlib_native(), "! is_zlib_native"; + ok Compress::Raw::Zlib::is_zlibng(), "is_zlibng"; + ok Compress::Raw::Zlib::is_zlibng_native(), "is_zlibng_native"; + ok ! Compress::Raw::Zlib::is_zlibng_compat(), "! is_zlibng_compat"; + is Compress::Raw::Zlib::zlib_version(), '', "zlib_version() should be empty"; + is Compress::Raw::Zlib::ZLIB_VERSION, '', "ZLIB_VERSION should be empty"; + } + elsif ($ENV{ZLIB_NG_PRESENT}) + { + # zlib-ng compat + my %zlibng2zlib = ( + '2.0.0' => '1.2.11.zlib-ng', + '2.0.1' => '1.2.11.zlib-ng', + '2.0.2' => '1.2.11.zlib-ng', + '2.0.3' => '1.2.11.zlib-ng', + '2.0.4' => '1.2.11.zlib-ng', + '2.0.5' => '1.2.11.zlib-ng', + '2.0.6' => '1.2.11.zlib-ng', + ); + + my $zv = Compress::Raw::Zlib::zlibng_version(); -The version of zlib.h does not match the version of libz - -You have zlib.h version $zlib_h - and libz version $libz - -You probably have two versions of zlib installed on your system. -Try removing the one you don't want to use and rebuild. -EOM + my $compat_ver = $zlibng2zlib{$expected_version}; + is substr($zv, 0, length($expected_version)), $expected_version, "Expected Version is $expected_version"; + ok ! Compress::Raw::Zlib::is_zlib_native(), "! is_zlib_native"; + ok Compress::Raw::Zlib::is_zlibng(), "is_zlibng"; + ok ! Compress::Raw::Zlib::is_zlibng_native(), "! is_zlibng_native"; + ok Compress::Raw::Zlib::is_zlibng_compat(), "is_zlibng_compat"; + is Compress::Raw::Zlib::zlib_version(), $compat_ver, "zlib_version() should be $compat_ver"; + is Compress::Raw::Zlib::ZLIB_VERSION, $compat_ver, "ZLIB_VERSION should be $compat_ver"; + } + else + { + # zlib native + my $zv = Compress::Raw::Zlib::zlib_version(); + is substr($zv, 0, length($expected_version)), $expected_version, "Expected Version is $expected_version"; + ok Compress::Raw::Zlib::is_zlib_native(), "is_zlib_native"; + ok ! Compress::Raw::Zlib::is_zlibng(), "! is_zlibng"; + ok ! Compress::Raw::Zlib::is_zlibng_native(), "! is_zlibng_native"; + ok ! Compress::Raw::Zlib::is_zlibng_compat(), "! is_zlibng_compat"; + is Compress::Raw::Zlib::zlibng_version(), '', "zlibng_version() should be empty"; + is Compress::Raw::Zlib::ZLIBNG_VERSION, '', "ZLIBNG_VERSION should be empty"; } + +} |