[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 98775e6cf6: ; Pacify obsoletion warnings in image-tests.el.
From: |
Basil L. Contovounesios |
Subject: |
master 98775e6cf6: ; Pacify obsoletion warnings in image-tests.el. |
Date: |
Sat, 2 Apr 2022 12:42:09 -0400 (EDT) |
branch: master
commit 98775e6cf6ca600c6c8e2ef1fdd1d1bc65c65098
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
; 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 6abfcfedcf..2b3e818d72 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 98775e6cf6: ; Pacify obsoletion warnings in image-tests.el.,
Basil L. Contovounesios <=