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

Add three new tests for image.el

Browse source 
* test/lisp/image-tests.el (image-find-image)
(image-type-from-file-name, image-type/from-filename): New tests.
This commit is contained in:
Stefan Kangas 2021-03-15 01:43:11 +01:00
parent 8b024a6ff1
commit 8548ad2cb3
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -48,6 +48,17 @@
(setf (image-property image :width) nil)
(should (equal image '(image)))))
(ert-deftest image-find-image ()
(find-image '((:type xpm :file "undo.xpm")))
(find-image '((:type png :file "newsticker/rss-feed.png" :ascent center))))
(ert-deftest 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)))
(ert-deftest image-type/from-filename ()
(should (eq (image-type "foo.jpg") 'jpeg)))
(ert-deftest image-type-from-file-header-test ()
"Test image-type-from-file-header."
(should (eq (if (image-type-available-p 'svg) 'svg)