Commit ddf62263 authored by Michael Albinus's avatar Michael Albinus
Browse files

Fix newly introduced error in tramp-tests.el (Bug#49406)

* test/lisp/net/tramp-tests.el (tramp--test-check-files):
Filter out empty strings.  (Bug#49406)
parent ed15f395
Pipeline #11296 failed with stages
in 1 minute and 16 seconds
......@@ -5935,7 +5935,9 @@ This requires restrictions of file name syntax."
(file-truename tramp-test-temporary-file-directory))
(tmp-name1 (tramp--test-make-temp-name nil quoted))
(tmp-name2 (tramp--test-make-temp-name 'local quoted))
(files (delq nil files))
(files
(delq
nil (mapcar (lambda (x) (unless (string-empty-p x) x)) files)))
(process-environment process-environment)
(sorted-files (sort (copy-sequence files) #'string-lessp))
buffer)
......@@ -5945,7 +5947,7 @@ This requires restrictions of file name syntax."
(make-directory tmp-name2)
(dolist (elt files)
;(tramp--test-message "%s" elt)
;(tramp--test-message "'%s'" elt)
(let* ((file1 (expand-file-name elt tmp-name1))
(file2 (expand-file-name elt tmp-name2))
(file3 (expand-file-name (concat elt "foo") tmp-name1)))
......
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