diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-06-16 21:57:44 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-06-16 21:57:44 +0200 |
| commit | fcf6cc3177a2404eea82a5e3f4b7118e22ca5094 (patch) | |
| tree | 8162c314842a6c38247b820a0aa97fc1a1150cec /test/lisp/wdired-tests.el | |
| parent | 4701e0663ee53f1c4b1e1e4c5fee9e597671800b (diff) | |
| download | emacs-fcf6cc3177a2404eea82a5e3f4b7118e22ca5094.tar.gz emacs-fcf6cc3177a2404eea82a5e3f4b7118e22ca5094.tar.bz2 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/wdired-tests.el')
| -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." (let ((buf (find-file-noselect test-dir))) (unwind-protect (with-current-buffer buf - (make-symbolic-link "./bar/baz" link-name) + (skip-unless + ;; This check is for wdired, not symbolic links, so skip + ;; it when make-symbolic-link fails for any reason (like + ;; insufficient privileges). + (ignore-errors (make-symbolic-link "./bar/baz" link-name) t)) (revert-buffer) (let* ((file-name (dired-get-filename)) (dir-part (file-name-directory file-name)) |