diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2022-04-02 19:40:05 +0300 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2022-04-02 19:41:12 +0300 |
| commit | 98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098 (patch) | |
| tree | dbc197b1ecd8b8d558191051e35dad09ab194c64 /test/lisp/image-tests.el | |
| parent | 781c43de3d017323b945088cdb39031d51a5e6ef (diff) | |
| download | emacs-98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098.tar.gz emacs-98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098.tar.bz2 emacs-98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098.zip | |
; Pacify obsoletion warnings in image-tests.el.
Diffstat (limited to 'test/lisp/image-tests.el')
| -rw-r--r-- | test/lisp/image-tests.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el index 6abfcfedcf4..2b3e818d720 100644 --- a/test/lisp/image-tests.el +++ b/test/lisp/image-tests.el @@ -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. |