Suppress some Tramp tests for OSX, do not merge with master
* test/automated/tramp-tests.el (tramp--test-darwin-p): New defun. (tramp--test-utf8): Use it. (Bug#22145)
This commit is contained in:
parent
d6d164f611
commit
dca240a70d
1 changed files with 11 additions and 2 deletions
|
@ -1785,6 +1785,14 @@ Several special characters do not work properly there."
|
||||||
(file-truename tramp-test-temporary-file-directory) nil
|
(file-truename tramp-test-temporary-file-directory) nil
|
||||||
(string-match "^HP-UX" (tramp-get-connection-property v "uname" ""))))
|
(string-match "^HP-UX" (tramp-get-connection-property v "uname" ""))))
|
||||||
|
|
||||||
|
(defun tramp--test-darwin-p ()
|
||||||
|
"Check, whether the remote host runs Mac OS X.
|
||||||
|
Several special characters do not work properly there."
|
||||||
|
;; We must refill the cache. `file-truename' does it.
|
||||||
|
(with-parsed-tramp-file-name
|
||||||
|
(file-truename tramp-test-temporary-file-directory) nil
|
||||||
|
(string-match "^Darwin" (tramp-get-connection-property v "uname" ""))))
|
||||||
|
|
||||||
(defun tramp--test-check-files (&rest files)
|
(defun tramp--test-check-files (&rest files)
|
||||||
"Run a simple but comprehensive test over every file in FILES."
|
"Run a simple but comprehensive test over every file in FILES."
|
||||||
;; We must use `file-truename' for the temporary directory, because
|
;; We must use `file-truename' for the temporary directory, because
|
||||||
|
@ -2038,9 +2046,10 @@ Use the `ls' command."
|
||||||
(file-name-coding-system 'utf-8))
|
(file-name-coding-system 'utf-8))
|
||||||
(tramp--test-check-files
|
(tramp--test-check-files
|
||||||
(unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ")
|
(unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ")
|
||||||
(unless (tramp--test-hpux-p)
|
(unless (or (tramp--test-hpux-p) (tramp--test-darwin-p))
|
||||||
"أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت")
|
"أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت")
|
||||||
"银河系漫游指南系列"
|
(unless (tramp--test-darwin-p)
|
||||||
|
"银河系漫游指南系列")
|
||||||
"Автостопом по гала́ктике")))
|
"Автостопом по гала́ктике")))
|
||||||
|
|
||||||
(ert-deftest tramp-test32-utf8 ()
|
(ert-deftest tramp-test32-utf8 ()
|
||||||
|
|
Loading…
Add table
Reference in a new issue