aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero2019-06-16 21:57:44 +0200
committerJuanma Barranquero2019-06-16 21:57:44 +0200
commitfcf6cc3177a2404eea82a5e3f4b7118e22ca5094 (patch)
tree8162c314842a6c38247b820a0aa97fc1a1150cec /test/lisp
parent4701e0663ee53f1c4b1e1e4c5fee9e597671800b (diff)
downloademacs-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.el6
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))