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

diff --git a/test/lisp/image-tests.el b/test/lisp/image-tests.el
index 317e85fe50c478611e6b739a8fc3a7b3a8d6094e..aa8600609c4c6d054466a62dbde286e81ba0f091 100644 (file)
--- 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."