diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 7baa4c7e2fa..bedda83bbdb 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -109,6 +109,9 @@ Also check that an encoding error can appear in a symlink." | |||
| 109 | 109 | ||
| 110 | (ert-deftest fileio-tests--HOME-trailing-slash () | 110 | (ert-deftest fileio-tests--HOME-trailing-slash () |
| 111 | "Test that expand-file-name of \"~\" respects trailing slash." | 111 | "Test that expand-file-name of \"~\" respects trailing slash." |
| 112 | :expected-result (if (memq system-type '(windows-nt ms-dos)) | ||
| 113 | :failed | ||
| 114 | :passed) | ||
| 112 | (let ((process-environment (copy-sequence process-environment))) | 115 | (let ((process-environment (copy-sequence process-environment))) |
| 113 | (dolist (home | 116 | (dolist (home |
| 114 | (if (memq system-type '(windows-nt ms-dos)) | 117 | (if (memq system-type '(windows-nt ms-dos)) |