diff options
| author | Michael Albinus | 2018-03-28 18:05:58 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-03-28 18:05:58 +0200 |
| commit | e6bb547353915b376b663fda32f88d1bf8f24d1f (patch) | |
| tree | a6906bafbb6854908fb990174c851bc42a9ffa13 | |
| parent | 4b3f1a95567127ee39a7a3e4704bb1faa34b5282 (diff) | |
| download | emacs-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.el | 4 |
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 | ||