- tifflib 3.8.0 with MDI (Microsoft(tm) TIFF) support produces a

  different error when it reads a file with a bad magic number.
  Update the test to handle the possible messages.

diff --git a/Changes b/Changes
index 47eb80785412aa23163fc3b07af08fa054e0c30d..a91ed5ccd63648ee6da012d1566e7548b7a4f364 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1378,6 +1378,9 @@ Revision history for Perl extension Imager.
   or through a NULL pointer if the EXIF user_comment field was less
   than 8 bytes long.
   https://rt.cpan.org/Ticket/Display.html?id=17981
+- tifflib 3.8.0 with MDI (Microsoft(tm) TIFF) support produces a 
+  different error when it reads a file with a bad magic number.
+  Update the test to handle the possible messages.
 
 =================================================================
 

diff --git a/t/t106tiff.t b/t/t106tiff.t
index 90019795777c9813c054bef2adf56a285fab72ea..f2c0127f482b89198dbc1a87dcd94dd05414c02f 100644 (file)
--- a/t/t106tiff.t
+++ b/t/t106tiff.t
@@ -401,12 +401,12 @@ SKIP:
     # we get different magic number values depending on the platform
     # byte ordering
     cmp_ok($im->errstr, '=~',
-          "Error opening file: Not a TIFF file, bad magic number (8483 \\(0x2123\\)|8993 \\(0x2321\\))", 
+          "Error opening file: Not a TIFF (?:or MDI )file, bad magic number (8483 \\(0x2123\\)|8993 \\(0x2321\\))", 
           "check error message");
     my @ims = Imager->read_multi(file =>'t/t106tiff.t', type=>'tiff');
     ok(!@ims, "fail to read_multi script as image");
     cmp_ok($im->errstr, '=~',
-          "Error opening file: Not a TIFF file, bad magic number (8483 \\(0x2123\\)|8993 \\(0x2321\\))", 
+          "Error opening file: Not a TIFF (?:or MDI )file, bad magic number (8483 \\(0x2123\\)|8993 \\(0x2321\\))", 
        "check error message");
   }
 }