mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

* test/lisp/wdired-tests.el (wdired-test-symlink-name): New test.

Browse Source
This commit is contained in:
Stephen Berman 2018-07-30 14:12:50 +02:00
parent dd51434714
commit 0252f7311f
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
test/lisp/wdired-tests.el
View File

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