mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* test/manual/image-tests.el (image-skip-unless):
(image-tests-image-metadata/gif): Fix last change.
This commit is contained in:
Stefan Kangas 2022-09-13 11:06:11 +02:00
parent 16d6ef13c2
commit 89199f16ae
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/manual/image-tests.el
View file

@ -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)))))))