diff options
| author | Michael Albinus | 2017-10-08 13:55:20 +0200 |
|---|---|---|
| committer | Michael Albinus | 2017-10-08 13:55:20 +0200 |
| commit | 1cd334cd47dd3d5085a0779499aff2f6617cb3d5 (patch) | |
| tree | 5d4e80194f875ec53d6a0df4f3dfec3eb39c397b /test | |
| parent | f1c73de47d64c22b3a83a18b4bdbd8ccbb2cca02 (diff) | |
| download | emacs-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.el | 5 |
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)))))) |