From: Ulrich Müller <ulm@gentoo.org>
Date: Fri, 21 Feb 2025 08:58:16 +0000 (+0100)
Subject: ; Skip image type test if support is missing
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8eaf38e633cd3f7f4a2efc666b7fb1ad690fc25;p=emacs.git

; Skip image type test if support is missing

* test/lisp/image-tests.el (image-type-from-file-name): Skip if
image types are not available.  (Bug#76462)

(cherry picked from commit cc51bd569874cd89a7fa1c3241033e69a5c2dd01)
---

diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 69557c83657..03d20758052 100644
--- a/test/lisp/image-tests.el
+++ b/test/lisp/image-tests.el
@@ -88,6 +88,9 @@
   (should-not (image-supported-file-p "foo.some-unsupported-format")))
 
 (ert-deftest image-type-from-file-name ()
+  (skip-unless (and (image-type-available-p 'jpeg)
+                    (image-type-available-p 'png)
+                    (image-type-available-p 'webp)))
   (with-suppressed-warnings ((obsolete image-type-from-file-name))
     (should (eq (image-type-from-file-name "foo.jpg") 'jpeg))
     (should (eq (image-type-from-file-name "foo.png") 'png))