diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-12 15:14:42 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-12 15:15:16 +0200 |
commit | 82530902931416603340feb32cb186173ec2d46d (patch) | |
tree | 2d13e37a72a99a018f1746b88a6db59b0022f6e6 | |
parent | 26e56540da8588dfde4228c4a0fafac840e03268 (diff) | |
download | emacs-82530902931416603340feb32cb186173ec2d46d.tar.gz |
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)
-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 c66080cf029..f867047d08e 100644 --- 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))))))) |