Blame t/01version.t

Packit Service 4a2782
BEGIN {
Packit Service 4a2782
    if ($ENV{PERL_CORE}) {
Packit Service 4a2782
	chdir 't' if -d 't';
Packit Service 4a2782
	@INC = ("../lib", "lib/compress");
Packit Service 4a2782
    }
Packit Service 4a2782
}
Packit Service 4a2782
Packit Service 4a2782
use lib qw(t t/compress);
Packit Service 4a2782
use strict ;
Packit Service 4a2782
use warnings ;
Packit Service 4a2782
Packit Service 4a2782
use Test::More ;
Packit Service 4a2782
Packit Service 4a2782
BEGIN 
Packit Service 4a2782
{ 
Packit Service 4a2782
    # use Test::NoWarnings, if available
Packit Service 4a2782
    my $extra = 0 ;
Packit Service 4a2782
    $extra = 1
Packit Service 4a2782
        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
Packit Service 4a2782
Packit Service 4a2782
    plan tests => 2 + $extra ;
Packit Service 4a2782
Packit Service 4a2782
    use_ok('Compress::Raw::Zlib', 2) ; 
Packit Service 4a2782
}
Packit Service 4a2782
Packit Service 4a2782
# Check zlib_version and ZLIB_VERSION are the same.
Packit Service 4a2782
Packit Service 4a2782
SKIP: {
Packit Service 4a2782
    skip "TEST_SKIP_VERSION_CHECK is set", 1 
Packit Service 4a2782
        if $ENV{TEST_SKIP_VERSION_CHECK};
Packit Service 4a2782
    my $zlib_h = ZLIB_VERSION ;
Packit Service 4a2782
    my $libz   = Compress::Raw::Zlib::zlib_version;
Packit Service 4a2782
Packit Service 4a2782
    is($zlib_h, $libz, "ZLIB_VERSION ($zlib_h) matches Compress::Raw::Zlib::zlib_version")
Packit Service 4a2782
        or diag <
Packit Service 4a2782
Packit Service 4a2782
The version of zlib.h does not match the version of libz
Packit Service 4a2782
 
Packit Service 4a2782
You have zlib.h version $zlib_h
Packit Service 4a2782
     and libz   version $libz
Packit Service 4a2782
 
Packit Service 4a2782
You probably have two versions of zlib installed on your system.
Packit Service 4a2782
Try removing the one you don't want to use and rebuild.
Packit Service 4a2782
EOM
Packit Service 4a2782
}
Packit Service 4a2782