[Emacs-diffs] master e6bb547: Improve tramp--test-utf8

[Michael Albinus]

branch: master
commit e6bb547353915b376b663fda32f88d1bf8f24d1f
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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 5851840..b69a933 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))