procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for image-supported-file-p

Browse source 
* test/lisp/image-tests.el (image-type-from-file-name): Suppress
obsoletion warnings for test.
(image-supported-file-p/built-in)
(image-supported-file-p/optional)
(image-supported-file-p/unsupported-returns-nil): New tests.
This commit is contained in:
Stefan Kangas 2022-04-28 17:01:20 +02:00
parent 8898e4d4dd
commit 99559be8ca
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/image-tests.el
View file

@ -74,6 +74,18 @@
(should (listp (find-image '((:type png :file "newsticker/rss-feed.png" :ascent center)))))
(should-not (find-image '((:type png :file "does-not-exist-foo-bar.png")))))
(ert-deftest image-supported-file-p/built-in ()
;; (skip-unless (image-type-available-p 'pbm)) ; always built-in
(should (eq (image-supported-file-p "foo.pbm") 'pbm)))
(ert-deftest image-supported-file-p/optional ()
(if (image-type-available-p 'jpeg)
(should (eq (image-supported-file-p "foo.jpg") 'jpeg))
(should-not (image-supported-file-p "foo.jpg"))))
(ert-deftest image-supported-file-p/unsupported-returns-nil ()
(should-not (image-supported-file-p "foo.some-unsupported-format")))
(ert-deftest image-type-from-file-name ()
(with-suppressed-warnings ((obsolete image-type-from-file-name))
(should (eq (image-type-from-file-name "foo.jpg") 'jpeg))