diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-13 11:06:11 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-13 11:06:40 +0200 |
| commit | 89199f16aef2b1a2e79f22dddd7322f9f4fdd1fc (patch) | |
| tree | e18fcaf6dfa6b03859ef4f2c404016efb5d4abaf /test | |
| parent | 16d6ef13c27805781e6c2b43672d911ed9dfdc66 (diff) | |
| download | emacs-89199f16aef2b1a2e79f22dddd7322f9f4fdd1fc.tar.gz emacs-89199f16aef2b1a2e79f22dddd7322f9f4fdd1fc.tar.bz2 emacs-89199f16aef2b1a2e79f22dddd7322f9f4fdd1fc.zip | |
; 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.
Diffstat (limited to 'test')
| -rw-r--r-- | test/manual/image-tests.el | 9 |
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 @@ ;;; 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))))))) |