[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 0252f73: * test/lisp/wdired-tests.el (wdired-test
From: |
Stephen Berman |
Subject: |
[Emacs-diffs] emacs-26 0252f73: * test/lisp/wdired-tests.el (wdired-test-symlink-name): New test. |
Date: |
Mon, 30 Jul 2018 08:13:42 -0400 (EDT) |
branch: emacs-26
commit 0252f7311f6ea968ea45933e275ae8cedbfaa1ef
Author: Stephen Berman <address@hidden>
Commit: Stephen Berman <address@hidden>
* test/lisp/wdired-tests.el (wdired-test-symlink-name): New test.
---
test/lisp/wdired-tests.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/test/lisp/wdired-tests.el b/test/lisp/wdired-tests.el
index 7199470..bf09d43 100644
--- a/test/lisp/wdired-tests.el
+++ b/test/lisp/wdired-tests.el
@@ -74,6 +74,27 @@ Aborting an edit should leaving original file name
unchanged."
(if buf (kill-buffer buf))
(delete-directory test-dir t)))))
+(ert-deftest wdired-test-symlink-name ()
+ "Test the file name of a symbolic link.
+The Dired and WDired functions returning the name should include
+only the name before the link arrow."
+ (let* ((test-dir (make-temp-file "test-dir-" t))
+ (link-name "foo"))
+ (let ((buf (find-file-noselect test-dir)))
+ (unwind-protect
+ (with-current-buffer buf
+ (make-symbolic-link "./bar/baz" link-name)
+ (revert-buffer)
+ (let* ((file-name (dired-get-filename))
+ (dir-part (file-name-directory file-name))
+ (lf-name (concat dir-part link-name)))
+ (should (equal file-name lf-name))
+ (dired-toggle-read-only)
+ (should (equal (wdired-get-filename) lf-name))
+ (dired-toggle-read-only)))
+ (if buf (kill-buffer buf))
+ (delete-directory test-dir t)))))
+
(ert-deftest wdired-test-unfinished-edit-01 ()
"Test editing a file name without saving the change.
Finding the new name should be possible while still in
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 0252f73: * test/lisp/wdired-tests.el (wdired-test-symlink-name): New test.,
Stephen Berman <=