martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Skip image type test if support is missing

Browse Source 
* 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
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test/lisp/image-tests.el
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))