From 98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Sat, 2 Apr 2022 19:40:05 +0300 Subject: [PATCH] ; Pacify obsoletion warnings in image-tests.el. --- test/lisp/image-tests.el | 7 ++++--- 1 file 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. -- 2.39.5