diff options
| author | Stephen Leake | 2018-12-13 14:39:02 -0800 |
|---|---|---|
| committer | Stephen Leake | 2018-12-13 14:39:02 -0800 |
| commit | 87bef630bf0f45e8da74e43ba614aa2292b296ef (patch) | |
| tree | efdead3c0d7dd227bacbd4dfc5c1ff9b4d5c13c3 /test/src | |
| parent | 4d3f7b77cc7dea072d2ecb9f137c2e497bc52da1 (diff) | |
| parent | d08b75abe0f0cf9ade812b189c374809a2c7836e (diff) | |
| download | emacs-87bef630bf0f45e8da74e43ba614aa2292b296ef.tar.gz emacs-87bef630bf0f45e8da74e43ba614aa2292b296ef.zip | |
Merge commit 'd08b75abe0f0cf9ade812b189c374809a2c7836e'
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index b7b78bbda09..a74bcea41f2 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -102,4 +102,8 @@ Also check that an encoding error can appear in a symlink." | |||
| 102 | (setenv "HOME" "a/b/c") | 102 | (setenv "HOME" "a/b/c") |
| 103 | (should (equal (expand-file-name "~/foo") | 103 | (should (equal (expand-file-name "~/foo") |
| 104 | (expand-file-name "a/b/c/foo"))) | 104 | (expand-file-name "a/b/c/foo"))) |
| 105 | (when (memq system-type '(ms-dos windows-nt)) | ||
| 106 | ;; Test expansion of drive-relative file names. | ||
| 107 | (setenv "HOME" "x:foo") | ||
| 108 | (should (equal (expand-file-name "~/bar") "x:/foo/bar"))) | ||
| 105 | (setenv "HOME" old-home))) | 109 | (setenv "HOME" old-home))) |