(shr-test/zoom-image): Skip when libxml is absent

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index 54d85ee95f9c8502e2aaf66561022b68e90a7e35..815c1a3cf3fa3dba842e14b7aa32488b1ccec329 100644 (file)
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -136,6 +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))
   (let* ((image (expand-file-name "data/image/blank-100x200.png"
                                   (getenv "EMACS_TEST_DIRECTORY")))
          (image-url (concat "file://" (if (string-prefix-p "/" image)