From 99559be8ca809dcc3ba85a4a25ff1b9734c885c6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 28 Apr 2022 17:01:20 +0200 Subject: [PATCH] Add tests for image-supported-file-p * test/lisp/image-tests.el (image-type-from-file-name): Suppress obsoletion warnings for test. (image-supported-file-p/built-in) (image-supported-file-p/optional) (image-supported-file-p/unsupported-returns-nil): New tests. --- test/lisp/image-tests.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el index 2b3e818d720..908df09f15f 100644 --- a/test/lisp/image-tests.el +++ b/test/lisp/image-tests.el @@ -74,6 +74,18 @@ (should (listp (find-image '((:type png :file "newsticker/rss-feed.png" :ascent center))))) (should-not (find-image '((:type png :file "does-not-exist-foo-bar.png"))))) +(ert-deftest image-supported-file-p/built-in () + ;; (skip-unless (image-type-available-p 'pbm)) ; always built-in + (should (eq (image-supported-file-p "foo.pbm") 'pbm))) + +(ert-deftest image-supported-file-p/optional () + (if (image-type-available-p 'jpeg) + (should (eq (image-supported-file-p "foo.jpg") 'jpeg)) + (should-not (image-supported-file-p "foo.jpg")))) + +(ert-deftest image-supported-file-p/unsupported-returns-nil () + (should-not (image-supported-file-p "foo.some-unsupported-format"))) + (ert-deftest image-type-from-file-name () (with-suppressed-warnings ((obsolete image-type-from-file-name)) (should (eq (image-type-from-file-name "foo.jpg") 'jpeg)) -- 2.39.2