Commit 82407168 authored by Michael Albinus's avatar Michael Albinus
Browse files

* automated/tramp-tests.el (tramp-test29-utf8): Cleanup the

connection before running the test.  Reenable last test case.
parent a3fed6ff
2013-11-15 Michael Albinus <michael.albinus@gmx.de>
* automated/tramp-tests.el (tramp-test29-utf8): Cleanup the
connection before running the test.
2013-11-15 Michael Albinus <michael.albinus@gmx.de>
* automated/tramp-tests.el (tramp-test15-copy-directory)
......
......@@ -1067,8 +1067,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(ert-deftest tramp-test29-utf8 ()
"Check UTF8 encoding in file names and file contents."
(skip-unless (tramp--test-enabled))
;; TODO: It shall be possible to call it in every test.
(tramp-cleanup-connection
(tramp-dissect-file-name tramp-test-temporary-file-directory)
nil 'keep-password)
(let ((tmp-name (tramp--test-make-temp-name))
(arabic "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت.")
(arabic "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت")
(chinese "银河系漫游指南系列")
(russian "Автостопом по гала́ктике"))
(unwind-protect
......@@ -1083,9 +1087,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(insert-file-contents file)
(should (string-equal (buffer-string) lang)))))
;; Check file name.
; (should (equal (directory-files
; tmp-name nil directory-files-no-dot-files-regexp)
); (sort `(,arabic ,chinese ,russian) 'string-lessp))))
(should (equal (directory-files
tmp-name nil directory-files-no-dot-files-regexp)
(sort `(,arabic ,chinese ,russian) 'string-lessp))))
(ignore-errors (delete-directory tmp-name 'recursive)))))
;; TODO:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment