Mark failing fileio test on MS-Windows

* test/src/fileio-tests.el (fileio-tests--HOME-trailing-slash): Expect failure on MS-Windows.
2020-08-29 13:34:06 -07:00
parent e2702ca5fb
commit e709c187fd
1 changed files with 3 additions and 0 deletions
--- 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."

 (ert-deftest fileio-tests--HOME-trailing-slash ()
  "Test that expand-file-name of \"~\" respects trailing slash."
+  :expected-result (if (memq system-type '(windows-nt ms-dos))
+                       :failed
+                     :passed)
  (let ((process-environment (copy-sequence process-environment)))
    (dolist (home
             (if (memq system-type '(windows-nt ms-dos))