; 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)
This commit is contained in:
Ulrich Müller 2025-02-21 09:58:16 +01:00
parent 25ba253609
commit cc51bd5698

View file

@ -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))