report library version numbers where we already have the XS for it

diff --git a/t/t105gif.t b/t/t105gif.t
index f3d3c59f21715b06314567be7184d60965dd95c8..64ede63de8dabdea00526b58144d862171c8d79f 100644 (file)
--- a/t/t105gif.t
+++ b/t/t105gif.t
@@ -53,6 +53,9 @@ SKIP:
     ok(!grep($_ eq 'gif', Imager->write_types), "check gif not in write types");
     skip("no gif support", 139);
   }
+    my $gifver = Imager::i_giflib_version();
+  diag("giflib version (from header) $gifver");
+
     open(FH,">testout/t105.gif") || die "Cannot open testout/t105.gif\n";
     binmode(FH);
     ok(i_writegifmc($img,fileno(FH),6), "write low") or
@@ -112,7 +115,6 @@ SKIP:
     close FH;
     is($datai, $datani, "images match");
 
-    my $gifver = Imager::i_giflib_version();
   SKIP:
     {
       skip("giflib3 doesn't support callbacks", 4) unless $gifver >= 4.0;

diff --git a/t/t106tiff.t b/t/t106tiff.t
index 36bacd1e6a97538ee81cd8a24805bdca4ece1d22..b4366bf652be5fa00ad2bf866d5055bf60b53bc7 100644 (file)
--- a/t/t106tiff.t
+++ b/t/t106tiff.t
@@ -40,7 +40,9 @@ SKIP:
   my $ver_string = Imager::i_tiff_libversion();
   ok(my ($full, $major, $minor, $point) = 
      $ver_string =~ /Version +((\d+)\.(\d+).(\d+))/,
-     "extract library version");
+     "extract library version")
+    or diag("Could not extract from:\n$ver_string");
+  diag("libtiff release $full") if $full;
   # make something we can compare
   my $cmp_ver = sprintf("%03d%03d%03d", $major, $minor, $point);
   if ($cmp_ver lt '003007000') {