From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 23 Jun 2024 19:17:37 +0000 (+0300)
Subject: ; * test/lisp/net/shr-tests.el (shr-test--rendering-check): Use UTF-8.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c16c594cb4f060c59b199a784d565623f1da811;p=emacs.git

; * test/lisp/net/shr-tests.el (shr-test--rendering-check): Use UTF-8.

(cherry picked from commit 2b04effb13d2082358aed3a789cddc124dd7c4f2)
---

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index f9fdb5eb5d3..54e1ac46ba5 100644
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -51,7 +51,8 @@ Raise a test failure if the rendered buffer does not match NAME.txt.
 Append CONTEXT to the failure data, if non-nil."
   (let ((text-file (file-name-concat (ert-resource-directory) (concat name ".txt")))
         (html-file (file-name-concat (ert-resource-directory) (concat name ".html")))
-        (description (if context (format "%s (%s)" name context) name)))
+        (description (if context (format "%s (%s)" name context) name))
+        (coding-system-for-read 'utf-8))
     (with-temp-buffer
       (insert-file-contents html-file)
       (let ((dom (libxml-parse-html-region (point-min) (point-max)))
@@ -155,7 +156,6 @@ settings, then once more for each (OPTION . VALUE) pair.")
                      (shr-width 80)
                      (shr-use-fonts nil)
                      (shr-image-animate nil)
-                     (inhibit-message t)
                      (dom (libxml-parse-html-region (point-min) (point-max))))
             ;; Render the document.
             (erase-buffer)