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.
This commit is contained in:
Juanma Barranquero 2019-06-16 21:57:44 +02:00
parent 4701e0663e
commit fcf6cc3177

View file

@ -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))