Skip manual GIF metadata test on MS-Windows

* test/manual/image-tests.el
(image-skip-unless): Add new arg CONDITION.
(image-tests-image-metadata/gif): Skip test on MS-Windows when
using native image API.  (Bug#57691)

diff --git a/test/manual/image-tests.el b/test/manual/image-tests.el
index c66080cf029230005fe700d38656a18659f472d3..f867047d08ebd839f1c79bbd59eb00654c41c744 100644 (file)
--- a/test/manual/image-tests.el
+++ b/test/manual/image-tests.el
@@ -31,9 +31,10 @@
 
 ;;; Code:
 
-(defmacro image-skip-unless (format)
-  `(skip-unless (and (display-images-p)
-                     (image-type-available-p ,format))))
+(defmacro image-skip-unless (format &rest condition)
+  `(skip-unless (or (and (display-images-p)
+                         (image-type-available-p ,format))
+                    ,@condition)))
 
 (defconst image-tests--images
   `((gif . ,(expand-file-name "test/data/image/black.gif"
@@ -221,7 +222,7 @@
 ;;       contain metadata.
 
 (ert-deftest image-tests-image-metadata/gif ()
-  (image-skip-unless 'gif)
+  (image-skip-unless 'gif (not w32-use-native-image-API))
   (should (memq 'delay
                 (image-metadata
                  (create-image (cdr (assq 'gif image-tests--images)))))))