Commit bc6ab636 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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.
parent db5d38dd
...@@ -58,7 +58,16 @@ ...@@ -58,7 +58,16 @@
(ert-deftest dired-test-bug25609 () (ert-deftest dired-test-bug25609 ()
"Test for http://debbugs.gnu.org/25609 ." "Test for http://debbugs.gnu.org/25609 ."
(let* ((from (make-temp-file "foo" 'dir)) (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 (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)) (target (expand-file-name (file-name-nondirectory from) to))
(nested (expand-file-name (file-name-nondirectory from) target)) (nested (expand-file-name (file-name-nondirectory from) target))
(dired-dwim-target t) (dired-dwim-target t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment