aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2020-06-12 20:17:02 +0200
committerMichael Albinus2020-06-12 20:17:02 +0200
commit459bd56f46af8cd7c29965600c46387282c3c93f (patch)
tree47f2f4b4b0071db3df38da22b8fadfea43ec9345 /test
parent54efe18959591faa1087051c878abe470f53a28f (diff)
downloademacs-459bd56f46af8cd7c29965600c46387282c3c93f.tar.gz
emacs-459bd56f46af8cd7c29965600c46387282c3c93f.zip
Further fixes while testing tramp-crypt
* doc/misc/tramp.texi (External methods): Remove experimental note for rclone. (Keeping files encrypted): Mark file encryption as experimental. * lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist): Use `tramp-handle-file-truename'. (tramp-adb-handle-file-truename): Remove. * lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist): Add `file-writable-p'. (tramp-crypt-send-command): Return t if no error. (tramp-crypt-do-encrypt-or-decrypt-file-name) (tramp-crypt-do-encrypt-or-decrypt-file): Raise an error if it fails. (tramp-crypt-do-copy-or-rename-file): Flush file properties also when copying a directory. (tramp-crypt-handle-file-writable-p): New defun. (tramp-crypt-handle-insert-directory): Check for library `text-property-search'. * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-set-file-uid-gid): Rename from `tramp-gvfs-set-file-uid-gid'. * lisp/net/tramp-sh.el (tramp-sh-handle-file-truename): Use `tramp-handle-file-truename' as fallback. * lisp/net/tramp.el (tramp-handle-file-truename): Let-bind `tramp-crypt-enabled' to nil. (tramp-handle-write-region): Set also file ownership. * test/lisp/net/tramp-tests.el (tramp-test17-insert-directory): Skip if needed.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 578da4171c7..9667b34c667 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2925,6 +2925,9 @@ This tests also `file-directory-p' and `file-accessible-directory-p'."
2925 ;; (this is performed by `dired'). If FULL is nil, it shows just 2925 ;; (this is performed by `dired'). If FULL is nil, it shows just
2926 ;; one file. So we refrain from testing. 2926 ;; one file. So we refrain from testing.
2927 (skip-unless (not (tramp--test-ange-ftp-p))) 2927 (skip-unless (not (tramp--test-ange-ftp-p)))
2928 ;; `insert-directory' of crypted remote directories works only since
2929 ;; Emacs 27.1.
2930 (skip-unless (or (not (tramp--test-crypt-p)) (tramp--test-emacs27-p)))
2928 2931
2929 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) 2932 (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil)))
2930 (let* ((tmp-name1 2933 (let* ((tmp-name1