mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 02:20:21 -08:00
Code Issues Projects Releases Wiki 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
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)) (if buf (kill-buffer buf))
(delete-directory test-dir t))))) (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 () (ert-deftest wdired-test-unfinished-edit-01 ()
"Test editing a file name without saving the change. "Test editing a file name without saving the change.
Finding the new name should be possible while still in Finding the new name should be possible while still in