From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 23 Sep 2024 15:30:00 +0000 (+0300)
Subject: ; Fix shr-tests when Emacs was built without libxml2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=892e6f114dd895630b850d5546fa1a907be04149;p=emacs.git

; Fix shr-tests when Emacs was built without libxml2

* test/lisp/net/shr-tests.el (shr-test/zoom-image): Skip if
libxml2 is not available.  (Bug#73440)

(cherry picked from commit e7260d4eb3ed1bebcaa9e2b934f162d4bb42e413)
---

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index 1980a437b9b..d0fe8031ed4 100644
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -136,7 +136,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))
-  (skip-unless (fboundp 'libxml-parse-html-region))
+  (skip-unless (libxml-available-p))
   (let* ((image (expand-file-name "data/image/blank-100x200.png"
                                   (getenv "EMACS_TEST_DIRECTORY")))
          (image-url (concat "file://" (if (string-prefix-p "/" image)