[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f23cfe3933a: ; * test/lisp/uniquify-tests.el (uniquify-home): Delete (bug#62621).,
Eli Zaretskii <=