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:
parent
4701e0663e
commit
fcf6cc3177
1 changed files with 5 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue