diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 0e0230a145d..813ee5f798f 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -131,4 +131,8 @@ Also check that an encoding error can appear in a symlink." | |||
| 131 | (ert-deftest fileio-tests--relative-default-directory () | 131 | (ert-deftest fileio-tests--relative-default-directory () |
| 132 | "Test expand-file-name when default-directory is relative." | 132 | "Test expand-file-name when default-directory is relative." |
| 133 | (let ((default-directory "some/relative/name")) | 133 | (let ((default-directory "some/relative/name")) |
| 134 | (should (file-name-absolute-p (expand-file-name "foo"))))) | 134 | (should (file-name-absolute-p (expand-file-name "foo")))) |
| 135 | (let* ((default-directory "~foo") | ||
| 136 | (name (expand-file-name "bar"))) | ||
| 137 | (should (and (file-name-absolute-p name) | ||
| 138 | (not (eq (aref name 0) ?~)))))) | ||