aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2018-03-28 18:05:58 +0200
committerMichael Albinus2018-03-28 18:05:58 +0200
commite6bb547353915b376b663fda32f88d1bf8f24d1f (patch)
treea6906bafbb6854908fb990174c851bc42a9ffa13
parent4b3f1a95567127ee39a7a3e4704bb1faa34b5282 (diff)
downloademacs-e6bb547353915b376b663fda32f88d1bf8f24d1f.tar.gz
emacs-e6bb547353915b376b663fda32f88d1bf8f24d1f.zip
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.
-rw-r--r--test/lisp/net/tramp-tests.el4
1 files changed, 3 insertions, 1 deletions
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."
4484 (when (and (tramp--test-expensive-test) (tramp--test-sh-p)) 4484 (when (and (tramp--test-expensive-test) (tramp--test-sh-p))
4485 (dolist (elt files) 4485 (dolist (elt files)
4486 (let ((envvar (concat "VAR_" (upcase (md5 elt)))) 4486 (let ((envvar (concat "VAR_" (upcase (md5 elt))))
4487 (elt (encode-coding-string elt coding-system-for-read))
4487 (default-directory tramp-test-temporary-file-directory) 4488 (default-directory tramp-test-temporary-file-directory)
4488 (process-environment process-environment)) 4489 (process-environment process-environment))
4489 (setenv envvar elt) 4490 (setenv envvar elt)
@@ -4643,7 +4644,8 @@ Use the `ls' command."
4643 (setq x (eval (cdr (assoc 'sample-text x)))) 4644 (setq x (eval (cdr (assoc 'sample-text x))))
4644 (unless (or (null x) 4645 (unless (or (null x)
4645 (unencodable-char-position 4646 (unencodable-char-position
4646 nil nil file-name-coding-system nil x)) 4647 nil nil file-name-coding-system nil x)
4648 (string-match "TaiViet" x))
4647 (replace-regexp-in-string "[\n/]" "" x))) 4649 (replace-regexp-in-string "[\n/]" "" x)))
4648 language-info-alist)) 4650 language-info-alist))
4649 4651