From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 13 Sep 2022 09:06:11 +0000 (+0200)
Subject: ; Fix last change in test/manual/image-tests.el
X-Git-Tag: emacs-29.0.90~1856^2~569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89199f16aef2b1a2e79f22dddd7322f9f4fdd1fc;p=emacs.git

; Fix last change in test/manual/image-tests.el

* test/manual/image-tests.el (image-skip-unless):
(image-tests-image-metadata/gif): Fix last change.
---

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