emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master f23cfe3933a: ; * test/lisp/uniquify-tests.el (uniquify-home): Del


From: Eli Zaretskii
Subject: master f23cfe3933a: ; * test/lisp/uniquify-tests.el (uniquify-home): Delete (bug#62621).
Date: Thu, 3 Aug 2023 10:04:52 -0400 (EDT)

branch: master
commit f23cfe3933abcdec44d46c86e4ac3219fa1b5631
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; * test/lisp/uniquify-tests.el (uniquify-home): Delete (bug#62621).
---
 test/lisp/uniquify-tests.el | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/test/lisp/uniquify-tests.el b/test/lisp/uniquify-tests.el
index 224991cb048..38510c3bd77 100644
--- a/test/lisp/uniquify-tests.el
+++ b/test/lisp/uniquify-tests.el
@@ -89,21 +89,6 @@
                          '("a/dir/" "b/dir/")))
           (mapc #'kill-buffer bufs))))))
 
-(ert-deftest uniquify-home ()
-  "uniquify works, albeit confusingly, in the presence of directories named 
\"~\""
-  (let (bufs)
-    (save-excursion
-      (push (find-file-noselect "~") bufs)
-      (push (find-file-noselect "./~") bufs)
-      (should (equal (mapcar #'buffer-name bufs)
-                     '("~<test>" "~<>")))
-      (push (find-file-noselect "~/foo") bufs)
-      (push (find-file-noselect "./~/foo") bufs)
-      (should (equal (mapcar #'buffer-name bufs)
-                     '("foo<~>" "foo</nonexistent>" "~<test>" "~<>")))
-      (while bufs
-        (kill-buffer (pop bufs))))))
-
 (ert-deftest uniquify-rename-to-dir ()
   "Giving a buffer a name which matches a directory doesn't rename the buffer"
   (let ((uniquify-buffer-name-style 'forward)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]