; * 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 f9fdb5eb5d36e1348e256c974e547ef828012403..54e1ac46ba517f277ccec99df99d7ff43bf82875 100644 (file)
--- 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)