handle a slightly different warning from libtiff 4.x
authorTony Cook <tony@develop-help.com>
Sat, 5 Feb 2011 03:28:55 +0000 (14:28 +1100)
committerTony Cook <tony@develop-help.com>
Sat, 5 Feb 2011 03:45:41 +0000 (14:45 +1100)
Changes
TIFF/t/t10tiff.t

diff --git a/Changes b/Changes
index 4c35aee..539a2a8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -30,6 +30,9 @@ Bug fixes:
  - make sure each test script that needs testout/ creates it.
    https://rt.cpan.org/Ticket/Display.html?id=65088
 
+ - handle a slightly different warning from libtiff 4.x
+   https://rt.cpan.org/Ticket/Display.html?id=65268
+
 Imager 0.80 - 17 Jan 2011
 ===========
 
index 77f16de..ddbc236 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 216;
+use Test::More tests => 217;
 use Imager qw(:all);
 use Imager::Test qw(is_image is_image_similar test_image test_image_16 test_image_double test_image_raw);
 
@@ -336,8 +336,9 @@ is($unitname, 'inch', "check tiff_resolutionunit_name tag");
 my $warned = Imager->new;
 ok($warned->read(file=>"testimg/tiffwarn.tif"), "read tiffwarn.tif");
 my ($warning) = $warned->tags(name=>'i_warning');
-ok(defined $warning && $warning =~ /unknown field with tag 28712/,
-   "check that warning tag set and correct");
+ok(defined $warning, "check warning is set");
+like($warning, qr/[Uu]nknown field with tag 28712/,
+     "check that warning tag correct");
 
 { # support for reading a given page
   # first build a simple test image