Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Add new test to files-tests

Browse source 
* test/lisp/files-tests.el
(files-tests-directory-files-recursively-w32): New test.
This commit is contained in:
Eli Zaretskii 2026-04-29 18:04:48 +03:00
parent e452c4a59f
commit 7017fcc4c5
1 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
test/lisp/files-tests.el
View file

@ -696,6 +696,54 @@ unquoted file names."
(tmpdir nospecial-dir t)
(should-error (directory-files-and-attributes nospecial-dir))))
(ert-deftest files-tests-directory-files-recursively-w32 ()
"Test MS-Windows specific features of `directory-files-recursively'."
(skip-unless (eq system-type 'windows-nt))
(files-tests--with-temp-non-special (tmpdir nospecial-dir t)
(let ((files-list
;; The list should be in the order that
;; 'directory-files-recursively' returns files and
;; directories.
'("Dir/SubDir/SubSubDir/SuBSubFile"
"Dir/SubDir/SubSubDir/"
"Dir/SubDir/"
"Dir/SuBfIlE1"
"Dir/sUbFiLe2"
"Dir/"
"FiLe1"))
(fnrel (lambda (fn) (file-relative-name fn tmpdir))))
(dolist (file files-list)
(if (directory-name-p file)
(make-directory (expand-file-name file nospecial-dir) t)
(make-empty-file
(expand-file-name file tmpdir) t)))
;; Run them through 'directory-file-name' because the list above
;; uses directory names, whereas 'directory-files-recursively'
;; returns their file names.
(should (equal (mapcar 'directory-file-name files-list)
;; Make the returned file names relative.
(mapcar fnrel
(directory-files-recursively tmpdir ".*" t))))
;; Test that 'directory-files-recursively' downcases file names it
;; returns when 'w32-downcase-file-names' is non-nil.
(let ((w32-downcase-file-names t))
(should (equal (mapcar 'downcase
(mapcar 'directory-file-name files-list))
(mapcar fnrel
(directory-files-recursively tmpdir ".*" t)))))
;; Test that backslashes are mirrored when files are returned.
(let* ((tmpdir-with-backslashes
(string-replace "/" "\\" (directory-file-name tmpdir)))
(nelt 2)
(subdir (file-name-concat
(concat tmpdir-with-backslashes "\\")
(string-replace "/" "\\" (nth nelt files-list)))))
(should (equal (mapcar 'directory-file-name
(butlast files-list (- (length files-list)
nelt)))
(mapcar fnrel
(directory-files-recursively subdir ".*" t))))))))
(ert-deftest files-tests-file-name-non-special-dired-compress-handler ()
;; `dired-compress-file' can get confused by filenames with ":" in
;; them, which causes this to fail on `windows-nt' systems.