From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Sat, 2 Apr 2022 16:40:05 +0000 (+0300)
Subject: ; Pacify obsoletion warnings in image-tests.el.
X-Git-Tag: emacs-29.0.90~1931^2~811
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098;p=emacs.git

; Pacify obsoletion warnings in image-tests.el.
---

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.