aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/manual/image-tests.el9
1 files changed, 5 insertions, 4 deletions
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 @@
32;;; Code: 32;;; Code:
33 33
34(defmacro image-skip-unless (format &rest condition) 34(defmacro image-skip-unless (format &rest condition)
35 `(skip-unless (or (and (display-images-p) 35 `(skip-unless (and (and (display-images-p)
36 (image-type-available-p ,format)) 36 (image-type-available-p ,format))
37 ,@condition))) 37 ,@condition)))
38 38
39(defconst image-tests--images 39(defconst image-tests--images
40 `((gif . ,(expand-file-name "test/data/image/black.gif" 40 `((gif . ,(expand-file-name "test/data/image/black.gif"
@@ -222,7 +222,8 @@
222;; contain metadata. 222;; contain metadata.
223 223
224(ert-deftest image-tests-image-metadata/gif () 224(ert-deftest image-tests-image-metadata/gif ()
225 (image-skip-unless 'gif (not w32-use-native-image-API)) 225 (image-skip-unless 'gif
226 (not (bound-and-true-p w32-use-native-image-API)))
226 (should (memq 'delay 227 (should (memq 'delay
227 (image-metadata 228 (image-metadata
228 (create-image (cdr (assq 'gif image-tests--images))))))) 229 (create-image (cdr (assq 'gif image-tests--images)))))))