From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 9 Jul 2019 20:02:51 +0000 (-0700)
Subject: Port image-type-from-file-header-test to non-SVG Emacs
X-Git-Tag: emacs-27.0.90~2034^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce59b41a28aba629dd126e7af3c6e45909de6a83;p=emacs.git

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 621646e5750..5a5b8ea1f71 100644
--- 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)))))