From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 6 May 2021 15:23:44 +0000 (+0200)
Subject: ; * test/lisp/image-tests.el: fix previous commit
X-Git-Tag: emacs-28.0.90~2566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b7495a722a57071cb2a978665f95f8227db2863;p=emacs.git

; * test/lisp/image-tests.el: fix previous commit
---

diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 317e85fe50c..aa8600609c4 100644
--- a/test/lisp/image-tests.el
+++ b/test/lisp/image-tests.el
@@ -57,11 +57,10 @@
   (should (eq (image-type-from-file-name "foo.png") 'png)))
 
 (ert-deftest image-type/from-filename ()
-  ;; On emba, `image-load-path' does not exist.
-  (skip-unless (bound-and-true-p image-load-path))
-  (should (eq (image-type "gif.pbm") 'pbm))
-  (when (memq 'jpeg image-types)        ; jpeg may not be compiled in
-    (should (eq (image-type "foo.jpg") 'jpeg))))
+  ;; On emba, `image-types' and `image-load-path' do not exist.
+  (skip-unless (and (bound-and-true-p image-types)
+                    (bound-and-true-p image-load-path)))
+  (should (eq (image-type "foo.jpg") 'jpeg)))
 
 (ert-deftest image-type-from-file-header-test ()
   "Test image-type-from-file-header."