diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2017-08-01 17:45:25 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-08-01 17:45:25 +0300 |
| commit | 21375a29ac9700810b90a34bd9825b1ca8f0c8e6 (patch) | |
| tree | 0ed0155f5a5b28dc835a0d7a32e0be9fa51a712c /test/lisp/dired-tests.el | |
| parent | f3ad15933a0d104b099d640d5c43fce99ece0003 (diff) | |
| download | emacs-21375a29ac9700810b90a34bd9825b1ca8f0c8e6.tar.gz | |
Fix some dired-tests.el on MS-Windows
* test/lisp/dired-tests.el (dired-test-bug27243-01)
(dired-test-bug27243-02): On MS-Windows, pass test-dir through
file-truename, to avoid bogus failures due to file-name comparison
as strings.
Diffstat (limited to 'test/lisp/dired-tests.el')
| -rw-r--r-- | test/lisp/dired-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 5900fead7d1..8657910a496 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -124,6 +124,11 @@ "Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27243#5 ." (let ((test-dir (file-name-as-directory (make-temp-file "test-dir-" t))) (dired-auto-revert-buffer t) buffers) + ;; On MS-Windows, get rid of 8+3 short names in test-dir, if the + ;; corresponding long file names exist, otherwise such names trip + ;; dired-buffers-for-dir. + (if (eq system-type 'windows-nt) + (setq test-dir (file-truename test-dir))) (should-not (dired-buffers-for-dir test-dir)) (with-current-buffer (find-file-noselect test-dir) (make-directory "test-subdir")) @@ -158,6 +163,11 @@ "Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27243#28 ." (let ((test-dir (make-temp-file "test-dir-" t)) (dired-auto-revert-buffer t) buffers) + ;; On MS-Windows, get rid of 8+3 short names in test-dir, if the + ;; corresponding long file names exist, otherwise such names trip + ;; string comparisons below. + (if (eq system-type 'windows-nt) + (setq test-dir (file-truename test-dir))) (with-current-buffer (find-file-noselect test-dir) (make-directory "test-subdir")) (push (dired test-dir) buffers) |