diff options
| author | Michael Albinus | 2017-11-25 16:03:53 +0100 |
|---|---|---|
| committer | Michael Albinus | 2017-11-25 16:03:53 +0100 |
| commit | 55c5b12fa040b0c4e1549207840fd6c84e5d2b19 (patch) | |
| tree | c0e4b47a77fc6b79eb74cad2cd98155431eaed3e /test | |
| parent | 3198a1646e743dbf8178efb8bba7dea6230f2874 (diff) | |
| download | emacs-55c5b12fa040b0c4e1549207840fd6c84e5d2b19.tar.gz emacs-55c5b12fa040b0c4e1549207840fd6c84e5d2b19.zip | |
Add test for Bug#29423 in Tramp.
* test/lisp/net/tramp-tests.el (tramp-test17-insert-directory):
Add test for Bug#29423.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index ad9d460d3c7..08c58c8027d 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -2313,6 +2313,14 @@ This tests also `file-directory-p' and `file-accessible-directory-p'." | |||
| 2313 | (insert-directory tmp-name1 nil) | 2313 | (insert-directory tmp-name1 nil) |
| 2314 | (goto-char (point-min)) | 2314 | (goto-char (point-min)) |
| 2315 | (should (looking-at-p (regexp-quote tmp-name1)))) | 2315 | (should (looking-at-p (regexp-quote tmp-name1)))) |
| 2316 | ;; This has been fixed in Emacs 26.1. See Bug#29423. | ||
| 2317 | (when (tramp--test-emacs26-p) | ||
| 2318 | (with-temp-buffer | ||
| 2319 | (insert-directory (file-name-as-directory tmp-name1) nil) | ||
| 2320 | (goto-char (point-min)) | ||
| 2321 | (should | ||
| 2322 | (looking-at-p | ||
| 2323 | (regexp-quote (file-name-as-directory tmp-name1)))))) | ||
| 2316 | (with-temp-buffer | 2324 | (with-temp-buffer |
| 2317 | (insert-directory tmp-name1 "-al") | 2325 | (insert-directory tmp-name1 "-al") |
| 2318 | (goto-char (point-min)) | 2326 | (goto-char (point-min)) |