From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 20 Apr 2024 07:43:30 +0000 (+0200)
Subject: Complete fix for eww-tests.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c79c38ea3076f3bf7d09b5640e3a2649bb9a887e;p=emacs.git

Complete fix for eww-tests.el

* test/lisp/net/eww-tests.el (eww-test/readable/toggle-display)
(eww-test/readable/default-readable): Check for libxml.  (Bug#70472)

(cherry picked from commit 3af9c33263df84f7a16bc07991f99352259121eb)
---

diff --git a/test/lisp/net/eww-tests.el b/test/lisp/net/eww-tests.el
index 84767b2d932..4ba51da408f 100644
--- a/test/lisp/net/eww-tests.el
+++ b/test/lisp/net/eww-tests.el
@@ -197,6 +197,7 @@ This sets `eww-before-browse-history-function' to
 
 (ert-deftest eww-test/readable/toggle-display ()
   "Test toggling the display of the \"readable\" parts of a web page."
+  (skip-unless (libxml-available-p))
   (eww-test--with-mock-retrieve
     (let* ((shr-width most-positive-fixnum)
            (shr-use-fonts nil)
@@ -234,7 +235,8 @@ This sets `eww-before-browse-history-function' to
 
 (ert-deftest eww-test/readable/default-readable ()
   "Test that EWW displays readable parts of pages by default when applicable."
-    (eww-test--with-mock-retrieve
+  (skip-unless (libxml-available-p))
+  (eww-test--with-mock-retrieve
     (let* ((eww-test--response-function
             (lambda (_url)
               (concat "Content-Type: text/html\n\n"