diff options
Diffstat (limited to 'test/lisp/image-tests.el')
| -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)) |