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

connection before running the test.  Reenable last test case.
This commit is contained in:
Michael Albinus 2013-11-15 14:49:17 +01:00
parent a3fed6ffab
commit 82407168e6
2 changed files with 13 additions and 4 deletions

View file

@ -1,3 +1,8 @@
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)

View file

@ -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: