From: Tony Cook <tony@develop-help.com>
Date: Fri, 23 Nov 2018 00:14:43 +0000 (+1100)
Subject: add probe support for FLIF files
X-Git-Tag: v1.007~4
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/1facb3575fe6775d0176eb6fa0b74fa87df9042a

add probe support for FLIF files

(this doesn't add support for the file format, just detection of
the file's "magic number")
---

diff --git a/image.c b/image.c
index cbd1b38a..3329003f 100644
--- a/image.c
+++ b/image.c
@@ -1716,6 +1716,9 @@ i_test_format_probe(io_glue *data, int length) {
     /* JPEG 2000 
        This might match a little loosely */
     FORMAT_ENTRY("\x00\x00\x00\x0CjP  \x0D\x0A\x87\x0A", "jp2"),
+
+    /* FLIF - Free Lossless Image Format - https://flif.info/spec.html */
+    FORMAT_ENTRY("FLIF", "flif")
   };
   static const struct magic_entry more_formats[] = {
     /* these were originally both listed as ico, but cur files can
diff --git a/t/200-file/100-files.t b/t/200-file/100-files.t
index bc602f1c..a4c66a44 100644
--- a/t/200-file/100-files.t
+++ b/t/200-file/100-files.t
@@ -4,7 +4,7 @@
 # the file format
 
 use strict;
-use Test::More tests => 93;
+use Test::More tests => 94;
 use Imager;
 
 -d "testout" or mkdir "testout";
@@ -287,6 +287,13 @@ probe_ok(<<JPEG2K, "jp2", "JPEG 2000");
 00 6A 70 32 63 FF 4F FF 51 00 2F 00 00 00 00 01
 JPEG2K
 
+probe_ok(<<FLIF, "flif", "FLIF");
+46 4C 49 46 44 31 83 7F 83 7F 00 A0 03 AF B0 B1
+E8 03 37 FF F7 D5 C2 D8 B7 D5 58 59 6E D9 71 8C
+0F A9 88 B4 1C B1 7F C0 2E FB 8C 7D 90 B6 04 DF
+CF 3A FF 56 5D FF 67 87 CE 9C 0E D6 69 CD 1F EF
+FLIF
+
 { # RT 72475
   # check error messages from read/read_multi
   my $data = "nothing useful";