diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2019-09-26 09:33:47 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2019-09-26 09:33:47 +0200 |
| commit | 1667bc2fa7ab0dde34313bd149cf886b37707d56 (patch) | |
| tree | bd0317b71511a69ea5f8dda1ae61753081747aa5 /test | |
| parent | 07367e5b95fe31f3d4e994b42b081075501b9b60 (diff) | |
| download | emacs-1667bc2fa7ab0dde34313bd149cf886b37707d56.tar.gz | |
Avoid errors in tramp-tests with a remote ksh shell
* test/lisp/net/tramp-tests.el (tramp--test-ksh-p): New defun.
(tramp-test41-utf8, tramp-test41-utf8-with-stat)
(tramp-test41-utf8-with-perl, tramp-test41-utf8-with-ls):
Skip, when remote shell is ksh.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index d7e0a045106..ffaf8ef846b 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -5086,6 +5086,15 @@ Several special characters do not work properly there." (file-truename tramp-test-temporary-file-directory) nil (string-match "^HP-UX" (tramp-get-connection-property v "uname" "")))) +(defun tramp--test-ksh-p () + "Check, whether the remote shell is ksh. +ksh93 makes some strange conversions of non-latin characters into +a $'' syntax." + ;; We must refill the cache. `file-truename' does it. + (with-parsed-tramp-file-name + (file-truename tramp-test-temporary-file-directory) nil + (string-match "ksh$" (tramp-get-connection-property v "remote-shell" "")))) + (defun tramp--test-mock-p () "Check, whether the mock method is used. This does not support external Emacs calls." @@ -5481,6 +5490,7 @@ Use the `ls' command." (skip-unless (not (tramp--test-rsync-p))) (skip-unless (not (tramp--test-windows-nt-and-batch))) (skip-unless (not (tramp--test-windows-nt-and-pscp-psftp-p))) + (skip-unless (not (tramp--test-ksh-p))) (tramp--test-utf8)) @@ -5494,6 +5504,7 @@ Use the `stat' command." (skip-unless (not (tramp--test-rsync-p))) (skip-unless (not (tramp--test-windows-nt-and-batch))) (skip-unless (not (tramp--test-windows-nt-and-pscp-psftp-p))) + (skip-unless (not (tramp--test-ksh-p))) (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil (skip-unless (tramp-get-remote-stat v))) @@ -5514,6 +5525,7 @@ Use the `perl' command." (skip-unless (not (tramp--test-rsync-p))) (skip-unless (not (tramp--test-windows-nt-and-batch))) (skip-unless (not (tramp--test-windows-nt-and-pscp-psftp-p))) + (skip-unless (not (tramp--test-ksh-p))) (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil (skip-unless (tramp-get-remote-perl v))) @@ -5537,6 +5549,7 @@ Use the `ls' command." (skip-unless (not (tramp--test-rsync-p))) (skip-unless (not (tramp--test-windows-nt-and-batch))) (skip-unless (not (tramp--test-windows-nt-and-pscp-psftp-p))) + (skip-unless (not (tramp--test-ksh-p))) (let ((tramp-connection-properties (append |