diff options
| author | Michael Albinus | 2021-05-06 17:15:30 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-05-06 17:15:30 +0200 |
| commit | b6f5da3240170fb9750a3304e4b8fa04fe7f2268 (patch) | |
| tree | a73491c1a2393290bbdc7433f746f8a185cc6d4b /test | |
| parent | 7f317868c5a1be8dd591cd26815e2b34896d31f0 (diff) | |
| download | emacs-b6f5da3240170fb9750a3304e4b8fa04fe7f2268.tar.gz emacs-b6f5da3240170fb9750a3304e4b8fa04fe7f2268.zip | |
In Tramp, use scp "-T" argument if available
* lisp/net/tramp-sh.el (tramp-scp-strict-file-name-checking): New defvar.
(tramp-scp-strict-file-name-checking): New defun.
(tramp-do-copy-or-rename-file-out-of-band): Use it.
(tramp-methods) <scp, scpx>: Use "%x".
(tramp-make-copy-program-file-name): Use local quoting.
(tramp-sh-handle-make-process): Don't call
`tramp-maybe-open-connection', this happens implicitly by
`tramp-send-command'.
* lisp/net/tramp.el (tramp-methods): Adapt docstring.
* test/lisp/net/tramp-tests.el (tramp-test40-special-characters)
(tramp-test40-special-characters-with-stat)
(tramp-test40-special-characters-with-perl)
(tramp-test40-special-characters-with-ls): Don't skip for
`tramp--test-windows-nt-and-scp-p'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 1eb0d0ec619..3a199469d6b 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -6114,7 +6114,7 @@ This requires restrictions of file name syntax." | |||
| 6114 | "Check special characters in file names." | 6114 | "Check special characters in file names." |
| 6115 | (skip-unless (tramp--test-enabled)) | 6115 | (skip-unless (tramp--test-enabled)) |
| 6116 | (skip-unless (not (tramp--test-rsync-p))) | 6116 | (skip-unless (not (tramp--test-rsync-p))) |
| 6117 | (skip-unless (not (tramp--test-windows-nt-and-scp-p))) | 6117 | ; (skip-unless (not (tramp--test-windows-nt-and-scp-p))) |
| 6118 | (skip-unless (or (tramp--test-emacs26-p) (not (tramp--test-rclone-p)))) | 6118 | (skip-unless (or (tramp--test-emacs26-p) (not (tramp--test-rclone-p)))) |
| 6119 | 6119 | ||
| 6120 | (tramp--test-special-characters)) | 6120 | (tramp--test-special-characters)) |
| @@ -6126,7 +6126,7 @@ Use the `stat' command." | |||
| 6126 | (skip-unless (tramp--test-enabled)) | 6126 | (skip-unless (tramp--test-enabled)) |
| 6127 | (skip-unless (tramp--test-sh-p)) | 6127 | (skip-unless (tramp--test-sh-p)) |
| 6128 | (skip-unless (not (tramp--test-rsync-p))) | 6128 | (skip-unless (not (tramp--test-rsync-p))) |
| 6129 | (skip-unless (not (tramp--test-windows-nt-and-scp-p))) | 6129 | ; (skip-unless (not (tramp--test-windows-nt-and-scp-p))) |
| 6130 | ;; We cannot use `tramp-test-vec', because this fails during compilation. | 6130 | ;; We cannot use `tramp-test-vec', because this fails during compilation. |
| 6131 | (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil | 6131 | (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil |
| 6132 | (skip-unless (tramp-get-remote-stat v))) | 6132 | (skip-unless (tramp-get-remote-stat v))) |
| @@ -6145,7 +6145,7 @@ Use the `perl' command." | |||
| 6145 | (skip-unless (tramp--test-enabled)) | 6145 | (skip-unless (tramp--test-enabled)) |
| 6146 | (skip-unless (tramp--test-sh-p)) | 6146 | (skip-unless (tramp--test-sh-p)) |
| 6147 | (skip-unless (not (tramp--test-rsync-p))) | 6147 | (skip-unless (not (tramp--test-rsync-p))) |
| 6148 | (skip-unless (not (tramp--test-windows-nt-and-scp-p))) | 6148 | ; (skip-unless (not (tramp--test-windows-nt-and-scp-p))) |
| 6149 | ;; We cannot use `tramp-test-vec', because this fails during compilation. | 6149 | ;; We cannot use `tramp-test-vec', because this fails during compilation. |
| 6150 | (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil | 6150 | (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil |
| 6151 | (skip-unless (tramp-get-remote-perl v))) | 6151 | (skip-unless (tramp-get-remote-perl v))) |
| @@ -6167,7 +6167,7 @@ Use the `ls' command." | |||
| 6167 | (skip-unless (tramp--test-enabled)) | 6167 | (skip-unless (tramp--test-enabled)) |
| 6168 | (skip-unless (tramp--test-sh-p)) | 6168 | (skip-unless (tramp--test-sh-p)) |
| 6169 | (skip-unless (not (tramp--test-rsync-p))) | 6169 | (skip-unless (not (tramp--test-rsync-p))) |
| 6170 | (skip-unless (not (tramp--test-windows-nt-and-scp-p))) | 6170 | ; (skip-unless (not (tramp--test-windows-nt-and-scp-p))) |
| 6171 | 6171 | ||
| 6172 | (let ((tramp-connection-properties | 6172 | (let ((tramp-connection-properties |
| 6173 | (append | 6173 | (append |