From: Jim Porter <jporterbugs@gmail.com>
Date: Sun, 23 Jun 2024 18:40:30 +0000 (-0700)
Subject: ; Don't run new 'shr-test/zoom-image' when built without image support
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=833ed753c64cfe0353f401eb5f6d34e7388c1298;p=emacs.git

; Don't run new 'shr-test/zoom-image' when built without image support

* test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip when
'image-types' is unbound.

(cherry picked from commit 6619aec6bca6d682be9a995f417e65bb0849d593)
---

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index b6552674b27..f9fdb5eb5d3 100644
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -134,6 +134,7 @@ settings, then once more for each (OPTION . VALUE) pair.")
 
 (ert-deftest shr-test/zoom-image ()
   "Test that `shr-zoom-image' properly replaces the original image."
+  (skip-unless (bound-and-true-p image-types))
   (let ((image (expand-file-name "data/image/blank-100x200.png"
                                  (getenv "EMACS_TEST_DIRECTORY"))))
     (dolist (alt '(nil "" "nothing to see here"))