diff options
Diffstat (limited to 'test/lisp/international/mule-tests.el')
| -rw-r--r-- | test/lisp/international/mule-tests.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test/lisp/international/mule-tests.el b/test/lisp/international/mule-tests.el index 6e23d8c5421..3e0c5bf9f4b 100644 --- a/test/lisp/international/mule-tests.el +++ b/test/lisp/international/mule-tests.el @@ -99,7 +99,7 @@ provide HTML fragments. Some tests override those variables." (ert-deftest sgml-html-meta-utf-8 () "Baseline: UTF-8." - (should (eq 'utf-8 (sgml-html-meta-run "utf-8")))) + (should (eq 'utf-8 (coding-system-base (sgml-html-meta-run "utf-8"))))) (ert-deftest sgml-html-meta-windows-hebrew () "A non-Unicode charset." @@ -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." |