aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2021-05-06 17:15:30 +0200
committerMichael Albinus2021-05-06 17:15:30 +0200
commitb6f5da3240170fb9750a3304e4b8fa04fe7f2268 (patch)
treea73491c1a2393290bbdc7433f746f8a185cc6d4b /test
parent7f317868c5a1be8dd591cd26815e2b34896d31f0 (diff)
downloademacs-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.el8
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