From: Ulrich Müller <ulm@gentoo.org>
Date: Fri, 21 Feb 2025 09:36:52 +0000 (+0100)
Subject: ; Skip shr-test/zoom-image test if png or libxml support is missing
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=520876c35c18011fef5e4db4549f97b60325186e;p=emacs.git

; Skip shr-test/zoom-image test if png or libxml support is missing

* test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip if png
images or libxml are not supported.  (Bug#76464)

(cherry picked from commit 230ecb1e273e3fec6400cfad76e9b13f648d9055)
---

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index 46e19485a09..a69d9f53ef6 100644
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -135,8 +135,9 @@ 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))
-  (skip-unless (libxml-available-p))
+  (skip-unless (and (bound-and-true-p image-types)
+                    (image-type-available-p 'png)
+                    (fboundp 'libxml-parse-html-region)))
   (let* ((image (expand-file-name "data/image/blank-100x200.png"
                                   (getenv "EMACS_TEST_DIRECTORY")))
          (image-url (concat "file://" (if (string-prefix-p "/" image)