procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2024-06-23 22:17:37 +03:00
parent 6619aec6bc
commit 2b04effb13
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/net/shr-tests.el
View file

@ -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." Append CONTEXT to the failure data, if non-nil."
(let ((text-file (file-name-concat (ert-resource-directory) (concat name ".txt"))) (let ((text-file (file-name-concat (ert-resource-directory) (concat name ".txt")))
(html-file (file-name-concat (ert-resource-directory) (concat name ".html"))) (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 (with-temp-buffer
(insert-file-contents html-file) (insert-file-contents html-file)
(let ((dom (libxml-parse-html-region (point-min) (point-max))) (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-width 80)
(shr-use-fonts nil) (shr-use-fonts nil)
(shr-image-animate nil) (shr-image-animate nil)
(inhibit-message t)
(dom (libxml-parse-html-region (point-min) (point-max)))) (dom (libxml-parse-html-region (point-min) (point-max))))
;; Render the document. ;; Render the document.
(erase-buffer) (erase-buffer)