]> git.eshelyaron.com Git - emacs.git/commitdiff
Improve tramp--test-utf8
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 28 Mar 2018 16:05:58 +0000 (18:05 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 28 Mar 2018 16:05:58 +0000 (18:05 +0200)
* 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

index 5851840d0094fcc7fadb526ff099978cad656872..b69a933db4a1dbe468869f5eaf4b5d2725def3bd 100644 (file)
@@ -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))