[Emacs-diffs] master bc6ab63: Fix dired-test-bug25609 on MS-Windows

[Eli Zaretskii]

branch: master
commit bc6ab63653fe2c07743ab4c6d864a4975bbf55ec
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix dired-test-bug25609 on MS-Windows
    
    * test/lisp/dired-tests.el (dired-test-bug25609): On MS-Windows,
    pass temporary files through file-truename, to avoid bogus
    failures due to file-name comparison as strings.
---
 test/lisp/dired-tests.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el
index 7933370..02dbf26 100644
--- a/test/lisp/dired-tests.el
+++ b/test/lisp/dired-tests.el
@@ -58,7 +58,16 @@
 (ert-deftest dired-test-bug25609 ()
   "Test for http://debbugs.gnu.org/25609 ."
   (let* ((from (make-temp-file "foo" 'dir))
+         ;; Make sure we have long file-names in 'from' and 'to', not
+         ;; their 8+3 short aliases, because the latter will confuse
+         ;; Dired commands invoked below.
+         (from (if (memq system-type '(ms-dos windows-nt))
+                   (file-truename from)
+                 from))
          (to (make-temp-file "bar" 'dir))
+         (to (if (memq system-type '(ms-dos windows-nt))
+                 (file-truename to)
+                 to))
          (target (expand-file-name (file-name-nondirectory from) to))
          (nested (expand-file-name (file-name-nondirectory from) target))
          (dired-dwim-target t)