Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Extend Tramp's UTF8 tests

Browse source 
* test/lisp/net/tramp-tests.el (tramp--test-utf8):
Apply more exhaustive tests.
This commit is contained in:
Michael Albinus 2018-03-20 16:33:51 +01:00 committed by Andrew G Cohen
parent 98cca7258d
commit aa2ebecbdb
1 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
test/lisp/net/tramp-tests.el
View file

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