From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 6 Sep 2022 10:56:51 +0000 (+0200)
Subject: Fix interactive image.c tests
X-Git-Tag: emacs-29.0.90~1856^2~701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d29ee5ddedaf43ee1ee2e476810bbba06bf177e;p=emacs.git

Fix interactive image.c tests

* test/src/image-tests.el (image-tests-image-metadata/gif)
(image-tests-image-metadata/webp): Fix tests.
---

diff --git a/test/src/image-tests.el b/test/src/image-tests.el
index 36278f4b9fa..c05582ada75 100644
--- a/test/src/image-tests.el
+++ b/test/src/image-tests.el
@@ -187,8 +187,9 @@
 
 (ert-deftest image-tests-image-metadata/gif ()
   (image-skip-unless 'gif)
-  (should-not (image-metadata
-               (create-image (cdr (assq 'gif image-tests--images))))))
+  (should (memq 'delay
+                (image-metadata
+                 (create-image (cdr (assq 'gif image-tests--images)))))))
 
 (ert-deftest image-tests-image-metadata/jpeg ()
   (image-skip-unless 'jpeg)
@@ -214,8 +215,9 @@
 
 (ert-deftest image-tests-image-metadata/webp ()
   (image-skip-unless 'webp)
-  (should-not (image-metadata
-               (create-image (cdr (assq 'webp image-tests--images))))))
+  (should (memq 'delay
+                (image-metadata
+                 (create-image (cdr (assq 'webp image-tests--images)))))))
 
 (ert-deftest image-tests-image-metadata/xbm ()
   (image-skip-unless 'xbm)