diff options
| author | Juanma Barranquero | 2019-06-16 21:57:44 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2019-06-16 21:57:44 +0200 |
| commit | fcf6cc3177a2404eea82a5e3f4b7118e22ca5094 (patch) | |
| tree | 8162c314842a6c38247b820a0aa97fc1a1150cec /test/lisp | |
| parent | 4701e0663ee53f1c4b1e1e4c5fee9e597671800b (diff) | |
| download | emacs-fcf6cc3177a2404eea82a5e3f4b7118e22ca5094.tar.gz emacs-fcf6cc3177a2404eea82a5e3f4b7118e22ca5094.zip | |
Fix problem with wdired test when symlinks cannot be created.
* test/lisp/wdired-tests.el (wdired-test-symlink-name):
Skip test if 'make-symbolic-link' fails for whatever reason;
that's not what's being tested.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/wdired-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/lisp/wdired-tests.el b/test/lisp/wdired-tests.el index dc67796cded..b0beb3c040c 100644 --- a/test/lisp/wdired-tests.el +++ b/test/lisp/wdired-tests.el | |||
| @@ -86,7 +86,11 @@ only the name before the link arrow." | |||
| 86 | (let ((buf (find-file-noselect test-dir))) | 86 | (let ((buf (find-file-noselect test-dir))) |
| 87 | (unwind-protect | 87 | (unwind-protect |
| 88 | (with-current-buffer buf | 88 | (with-current-buffer buf |
| 89 | (make-symbolic-link "./bar/baz" link-name) | 89 | (skip-unless |
| 90 | ;; This check is for wdired, not symbolic links, so skip | ||
| 91 | ;; it when make-symbolic-link fails for any reason (like | ||
| 92 | ;; insufficient privileges). | ||
| 93 | (ignore-errors (make-symbolic-link "./bar/baz" link-name) t)) | ||
| 90 | (revert-buffer) | 94 | (revert-buffer) |
| 91 | (let* ((file-name (dired-get-filename)) | 95 | (let* ((file-name (dired-get-filename)) |
| 92 | (dir-part (file-name-directory file-name)) | 96 | (dir-part (file-name-directory file-name)) |