; 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:
parent
25ba253609
commit
cc51bd5698
1 changed files with 3 additions and 0 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue