[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8253090293: Skip manual GIF metadata test on MS-Windows
From: |
Stefan Kangas |
Subject: |
master 8253090293: Skip manual GIF metadata test on MS-Windows |
Date: |
Mon, 12 Sep 2022 09:17:39 -0400 (EDT) |
branch: master
commit 82530902931416603340feb32cb186173ec2d46d
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
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)
---
test/manual/image-tests.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/test/manual/image-tests.el b/test/manual/image-tests.el
index c66080cf02..f867047d08 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)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8253090293: Skip manual GIF metadata test on MS-Windows,
Stefan Kangas <=