diff options
| author | Eli Zaretskii | 2023-08-03 17:04:41 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-08-03 17:04:41 +0300 |
| commit | f23cfe3933abcdec44d46c86e4ac3219fa1b5631 (patch) | |
| tree | 23f3d500826ce4a90974d0c7092ffb5230338a3e /test | |
| parent | 588a0363d9a3ce6d678618ad545f7a8f9af27880 (diff) | |
| download | emacs-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.el | 15 |
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) |