From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 28 Mar 2018 16:05:58 +0000 (+0200)
Subject: Improve tramp--test-utf8
X-Git-Tag: emacs-27.0.90~5380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6bb547353915b376b663fda32f88d1bf8f24d1f;p=emacs.git

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.
---

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))