diff options
author | Eli Zaretskii <eliz@gnu.org> | 2023-02-26 11:46:20 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-02-26 11:46:20 +0200 |
commit | 5b174b96834af7153f2aec1ac10d91caa0d03e52 (patch) | |
tree | c32189124b8de6946d168f22c4bd8ccf4023d502 | |
parent | 5256392a7ec0639ba4ba684d608bb3aaf976c985 (diff) | |
download | emacs-5b174b96834af7153f2aec1ac10d91caa0d03e52.tar.gz |
Fix mule-tests in UTF-8 locales
* test/lisp/international/mule-tests.el
(sgml-html-meta-no-post-less-than-10lines): Fix test condition.
-rw-r--r-- | test/lisp/international/mule-tests.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/lisp/international/mule-tests.el b/test/lisp/international/mule-tests.el index 6b76e35ae22..3e0c5bf9f4b 100644 --- a/test/lisp/international/mule-tests.el +++ b/test/lisp/international/mule-tests.el @@ -119,9 +119,10 @@ provide HTML fragments. Some tests override those variables." (ert-deftest sgml-html-meta-no-post-less-than-10lines () "No '</head>', detect charset in the first 10 lines." (let ((sgml-html-meta-post "")) - (should (eq 'utf-8 (sgml-html-meta-run - (concat "\n\n\n\n\n\n\n\n\n" - "<meta charset='utf-8'>")))))) + (should (eq 'utf-8 (coding-system-base + (sgml-html-meta-run + (concat "\n\n\n\n\n\n\n\n\n" + "<meta charset='utf-8'>"))))))) (ert-deftest sgml-html-meta-no-post-10lines () "No '</head>', do not detect charset after the first 10 lines." |