aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorEli Zaretskii2023-08-03 17:04:41 +0300
committerEli Zaretskii2023-08-03 17:04:41 +0300
commitf23cfe3933abcdec44d46c86e4ac3219fa1b5631 (patch)
tree23f3d500826ce4a90974d0c7092ffb5230338a3e /test
parent588a0363d9a3ce6d678618ad545f7a8f9af27880 (diff)
downloademacs-f23cfe3933abcdec44d46c86e4ac3219fa1b5631.tar.gz
emacs-f23cfe3933abcdec44d46c86e4ac3219fa1b5631.zip
; * test/lisp/uniquify-tests.el (uniquify-home): Delete (bug#62621).
Diffstat (limited to 'test')
-rw-r--r--test/lisp/uniquify-tests.el15
1 files changed, 0 insertions, 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 @@
89 '("a/dir/" "b/dir/"))) 89 '("a/dir/" "b/dir/")))
90 (mapc #'kill-buffer bufs)))))) 90 (mapc #'kill-buffer bufs))))))
91 91
92(ert-deftest uniquify-home ()
93 "uniquify works, albeit confusingly, in the presence of directories named \"~\""
94 (let (bufs)
95 (save-excursion
96 (push (find-file-noselect "~") bufs)
97 (push (find-file-noselect "./~") bufs)
98 (should (equal (mapcar #'buffer-name bufs)
99 '("~<test>" "~<>")))
100 (push (find-file-noselect "~/foo") bufs)
101 (push (find-file-noselect "./~/foo") bufs)
102 (should (equal (mapcar #'buffer-name bufs)
103 '("foo<~>" "foo</nonexistent>" "~<test>" "~<>")))
104 (while bufs
105 (kill-buffer (pop bufs))))))
106
107(ert-deftest uniquify-rename-to-dir () 92(ert-deftest uniquify-rename-to-dir ()
108 "Giving a buffer a name which matches a directory doesn't rename the buffer" 93 "Giving a buffer a name which matches a directory doesn't rename the buffer"
109 (let ((uniquify-buffer-name-style 'forward) 94 (let ((uniquify-buffer-name-style 'forward)