procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problem with wdired test when symlinks cannot be created.

Browse source 
* 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
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/wdired-tests.el
View file

@ -86,7 +86,11 @@ only the name before the link arrow."
(let ((buf (find-file-noselect test-dir))) (let ((buf (find-file-noselect test-dir)))
(unwind-protect (unwind-protect
(with-current-buffer buf (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) (revert-buffer)
(let* ((file-name (dired-get-filename)) (let* ((file-name (dired-get-filename))
(dir-part (file-name-directory file-name)) (dir-part (file-name-directory file-name))