diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-04-28 17:01:20 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-04-28 17:01:20 +0200 |
| commit | 99559be8ca809dcc3ba85a4a25ff1b9734c885c6 (patch) | |
| tree | 6fc1cc303520beb866d3ae420ca8608643060412 /test/lisp | |
| parent | 8898e4d4dd055d344b2728fe56cf601ba033cfb7 (diff) | |
| download | emacs-99559be8ca809dcc3ba85a4a25ff1b9734c885c6.tar.gz emacs-99559be8ca809dcc3ba85a4a25ff1b9734c885c6.tar.bz2 emacs-99559be8ca809dcc3ba85a4a25ff1b9734c885c6.zip | |
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.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/image-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
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)) |