diff options
Diffstat (limited to 'test/lisp/files-tests.el')
| -rw-r--r-- | test/lisp/files-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 285a884b695..732b3c02379 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -411,5 +411,19 @@ name (Bug#28412)." (should (file-directory-p (concat (file-name-as-directory dest2) "a"))) (delete-directory dir 'recursive))) +(ert-deftest files-test-abbreviated-home-dir () + "Test that changing HOME does not confuse `abbreviate-file-name'. +See <https://debbugs.gnu.org/19657#20>." + (let* ((homedir temporary-file-directory) + (process-environment (cons (format "HOME=%s" homedir) + process-environment)) + (abbreviated-home-dir nil) + (testfile (expand-file-name "foo" homedir)) + (old (file-truename (abbreviate-file-name testfile))) + (process-environment (cons (format "HOME=%s" + (expand-file-name "bar" homedir)) + process-environment))) + (should (equal old (file-truename (abbreviate-file-name testfile)))))) + (provide 'files-tests) ;;; files-tests.el ends here |