procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add some unit tests for 'abbreviate-file-name'

Browse source 
* test/lisp/files-tests.el (files-tests-abbreviate-file-name-homedir)
(files-tests-abbreviate-file-name-directory-abbrev-alist): New tests.
This commit is contained in:
Jim Porter 2021-11-07 18:03:23 +01:00 • committed by Michael Albinus
parent 21de5e7b2e
commit 7fdb2ae412
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
test/lisp/files-tests.el
View file

@ -1342,6 +1342,39 @@ name (Bug#28412)."
(should (file-directory-p (concat (file-name-as-directory dest2) "a")))
(delete-directory dir 'recursive)))
(ert-deftest files-tests-abbreviate-file-name-homedir ()
;; Check homedir abbreviation.
(let* ((homedir temporary-file-directory)
(process-environment (cons (format "HOME=%s" homedir)
process-environment))
(abbreviated-home-dir nil))
(should (equal "~/foo/bar"
(abbreviate-file-name (concat homedir "foo/bar")))))
;; Check that homedir abbreviation doesn't occur when homedir is just /.
(let* ((homedir "/")
(process-environment (cons (format "HOME=%s" homedir)
process-environment))
(abbreviated-home-dir nil))
(should (equal "/foo/bar"
(abbreviate-file-name (concat homedir "foo/bar"))))))
(ert-deftest files-tests-abbreviate-file-name-directory-abbrev-alist ()
;; Check `directory-abbrev-alist' abbreviation.
(let ((directory-abbrev-alist '(("\\`/nowhere/special" . "/nw/sp"))))
(should (equal "/nw/sp/here"
(abbreviate-file-name "/nowhere/special/here"))))
;; Check homedir and `directory-abbrev-alist' abbreviation.
(let* ((homedir temporary-file-directory)
(process-environment (cons (format "HOME=%s" homedir)
process-environment))
(abbreviated-home-dir nil)
(directory-abbrev-alist
`((,(concat "\\`" (regexp-quote homedir) "nowhere/special")
. ,(concat homedir "nw/sp")))))
(should (equal "~/nw/sp/here"
(abbreviate-file-name
(concat homedir "nowhere/special/here"))))))
(ert-deftest files-tests-abbreviated-home-dir ()
"Test that changing HOME does not confuse `abbreviate-file-name'.
See <https://debbugs.gnu.org/19657#20>."