[Emacs-diffs] master 97608c6: Extend Tramp's UTF8 tests

[Michael Albinus]

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

    Extend Tramp's UTF8 tests
    
    * test/lisp/net/tramp-tests.el (tramp--test-utf8):
    Apply more exhaustive tests.
---
 test/lisp/net/tramp-tests.el | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index e8d3503..519c98a 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4628,12 +4628,28 @@ Use the `ls' command."
         (coding-system-for-write utf8)
         (file-name-coding-system
          (coding-system-change-eol-conversion utf8 'unix)))
-    (tramp--test-check-files
-     (unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ")
-     (unless (tramp--test-hpux-p)
-       "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها 
بلا اتصال بالإنترنت")
-     "银河系漫游指南系列"
-     "Автостопом по гала́ктике")))
+    (apply
+     'tramp--test-check-files
+     (if (tramp--test-expensive-test)
+        (delete-dups
+         (mapcar
+          ;; Use all available language specific snippets.  Filter
+          ;; out strings which use unencodable characters.  Remove
+          ;; slash or newline.  Not Tramp's business.
+          (lambda (x)
+            (setq x (eval (cdr (assoc 'sample-text x))))
+            (unless (or (null x)
+                        (unencodable-char-position
+                         nil nil file-name-coding-system nil x))
+              (replace-regexp-in-string "[\n/]" "" x)))
+          language-info-alist))
+
+       (list
+       (unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ")
+       (unless (tramp--test-hpux-p)
+         "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها 
بلا اتصال بالإنترنت")
+       "银河系漫游指南系列"
+       "Автостопом по гала́ктике")))))
 
 (ert-deftest tramp-test39-utf8 ()
   "Check UTF8 encoding in file names and file contents."