diff options
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)))))) |