From e6bb547353915b376b663fda32f88d1bf8f24d1f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 28 Mar 2018 18:05:58 +0200 Subject: [PATCH] Improve tramp--test-utf8 * test/lisp/net/tramp-tests.el (tramp--test-check-files): Encode string when testing environment variables. (tramp--test-utf8): Remove "TaiViet" test. --- test/lisp/net/tramp-tests.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 5851840d009..b69a933db4a 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -4484,6 +4484,7 @@ This requires restrictions of file name syntax." (when (and (tramp--test-expensive-test) (tramp--test-sh-p)) (dolist (elt files) (let ((envvar (concat "VAR_" (upcase (md5 elt)))) + (elt (encode-coding-string elt coding-system-for-read)) (default-directory tramp-test-temporary-file-directory) (process-environment process-environment)) (setenv envvar elt) @@ -4643,7 +4644,8 @@ Use the `ls' command." (setq x (eval (cdr (assoc 'sample-text x)))) (unless (or (null x) (unencodable-char-position - nil nil file-name-coding-system nil x)) + nil nil file-name-coding-system nil x) + (string-match "TaiViet" x)) (replace-regexp-in-string "[\n/]" "" x))) language-info-alist)) -- 2.39.5