[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8302311 2/2: Add another 'abbreviate-file-name' test
From: |
Michael Albinus |
Subject: |
master 8302311 2/2: Add another 'abbreviate-file-name' test |
Date: |
Mon, 15 Nov 2021 07:34:12 -0500 (EST) |
branch: master
commit 83023117de77c3c41286b0eeb56e2e5417080c43
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Michael Albinus <michael.albinus@gmx.de>
Add another 'abbreviate-file-name' test
* test/lisp/files-tests.el
(files-tests-file-name-non-special-abbreviate-file-name): New test.
---
test/lisp/files-tests.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index d00f1ce..2c4557e 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -465,6 +465,15 @@ unquoted file names."
(let (file-name-handler-alist)
(concat (file-name-sans-extension name) part (file-name-extension name
t))))
+(ert-deftest files-tests-file-name-non-special-abbreviate-file-name ()
+ (let* ((homedir temporary-file-directory)
+ (process-environment (cons (format "HOME=%s" homedir)
+ process-environment))
+ (abbreviated-home-dir nil))
+ ;; Check that abbreviation doesn't occur for quoted file names.
+ (should (equal (concat "/:" homedir "foo/bar")
+ (abbreviate-file-name (concat "/:" homedir "foo/bar"))))))
+
(ert-deftest files-tests-file-name-non-special-access-file ()
(files-tests--with-temp-non-special (tmpfile nospecial)
;; Both versions of the file name work.