ext/Compress/Zlib/t/01version.t

   1
   2 use strict ;
   3 local ($^W) = 1; #use warnings ;
   4
   5 use Compress::Zlib ;
   6
   7 sub ok
   8 {
   9     my ($no, $ok) = @_ ;
  10
  11     #++ $total ;
  12     #++ $totalBad unless $ok ;
  13
  14     print "ok $no\n" if $ok ;
  15     print "not ok $no\n" unless $ok ;
  16     return $ok;
  17 }
  18
  19 print "1..1\n" ;
  20
  21 # Check zlib_version and ZLIB_VERSION are the same.
  22 my $zlib_h = ZLIB_VERSION ;
  23 my $libz   = Compress::Zlib::zlib_version;
  24 ok(1, $zlib_h eq $libz) ||
  25 print <<EOM;
  26 # The version of zlib.h does not match the version of libz
  27 #
  28 # You have zlib.h version $zlib_h
  29 #      and libz   version $libz
  30 #
  31 # You probably have two versions of zlib installed on your system.
  32 # Try removing the one you don't want to use and rebuild.
  33 EOM
  34