From 2c16c594cb4f060c59b199a784d565623f1da811 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 23 Jun 2024 22:17:37 +0300 Subject: [PATCH] ; * test/lisp/net/shr-tests.el (shr-test--rendering-check): Use UTF-8. (cherry picked from commit 2b04effb13d2082358aed3a789cddc124dd7c4f2) --- test/lisp/net/shr-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2