procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* test/lisp/net/tramp-tests.el (tramp--test-check-files):
Filter out empty strings.  (Bug#49406)
This commit is contained in:
Michael Albinus 2021-07-05 10:24:31 +02:00
parent ed15f3954c
commit ddf6226350
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/net/tramp-tests.el
View file

@ -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)))