Port image-type-from-file-header-test to non-SVG Emacs

Problem reported privately by Michael Albinus.
* test/lisp/image-tests.el (image-type-from-file-header-test):
Don’t assume svg is a supported image type.

diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 621646e575043d658814f9498a1e1d0fa0eec7e6..5a5b8ea1f71afb2377819d87fce8469107c8d5ac 100644 (file)
--- a/test/lisp/image-tests.el
+++ b/test/lisp/image-tests.el
@@ -48,7 +48,7 @@
 
 (ert-deftest image-type-from-file-header-test ()
   "Test image-type-from-file-header."
-  (should (eq 'svg
+  (should (eq (if (image-type-available-p 'svg) 'svg)
              (image-type-from-file-header
               (expand-file-name "splash.svg"
                                 image-tests--emacs-images-directory)))))