aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2017-10-08 13:55:20 +0200
committerMichael Albinus2017-10-08 13:55:20 +0200
commit1cd334cd47dd3d5085a0779499aff2f6617cb3d5 (patch)
tree5d4e80194f875ec53d6a0df4f3dfec3eb39c397b /test
parentf1c73de47d64c22b3a83a18b4bdbd8ccbb2cca02 (diff)
downloademacs-1cd334cd47dd3d5085a0779499aff2f6617cb3d5.tar.gz
emacs-1cd334cd47dd3d5085a0779499aff2f6617cb3d5.zip
Handle PARENTS properly in tramp-*-handle-make-directory
* lisp/net/tramp-adb.el (tramp-adb-handle-make-directory): * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-make-directory): Handle PARENTS properly. * test/lisp/net/tramp-tests.el (tramp-test13-make-directory): Extend test.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index a8fe06d4e67..14102e7725c 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2105,7 +2105,10 @@ This tests also `file-directory-p' and `file-accessible-directory-p'."
2105 (should-error (make-directory tmp-name2) :type 'file-error) 2105 (should-error (make-directory tmp-name2) :type 'file-error)
2106 (make-directory tmp-name2 'parents) 2106 (make-directory tmp-name2 'parents)
2107 (should (file-directory-p tmp-name2)) 2107 (should (file-directory-p tmp-name2))
2108 (should (file-accessible-directory-p tmp-name2))) 2108 (should (file-accessible-directory-p tmp-name2))
2109 ;; If PARENTS is non-nil, `make-directory' shall not
2110 ;; signal an error when DIR exists already.
2111 (make-directory tmp-name2 'parents))
2109 2112
2110 ;; Cleanup. 2113 ;; Cleanup.
2111 (ignore-errors (delete-directory tmp-name1 'recursive)))))) 2114 (ignore-errors (delete-directory tmp-name1 'recursive))))))