From fcf6cc3177a2404eea82a5e3f4b7118e22ca5094 Mon Sep 17 00:00:00 2001
From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 16 Jun 2019 21:57:44 +0200
Subject: 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.
---
test/lisp/wdired-tests.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
(limited to 'test/lisp/wdired-tests.el')
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))
--
cgit v1.2.3