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

; Pacify obsoletion warnings in image-tests.el.

Browse Source
This commit is contained in:
Basil L. Contovounesios
2022-04-02 19:40:05 +03:00
parent 781c43de3d
commit 98775e6cf6
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
test/lisp/image-tests.el
View File

@@ -75,9 +75,10 @@
(should-not (find-image '((:type png :file "does-not-exist-foo-bar.png")))))
(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))
(should (eq (image-type-from-file-name "foo.webp") '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))
(should (eq (image-type-from-file-name "foo.webp") 'webp))))
(ert-deftest image-type/from-filename ()
;; On emba, `image-types' and `image-load-path' do not exist.