From: Michael Albinus Date: Mon, 5 Jul 2021 08:24:31 +0000 (+0200) Subject: Fix newly introduced error in tramp-tests.el (Bug#49406) X-Git-Tag: emacs-28.0.90~1958 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddf6226350934a9e9ffe436d46141c752eb440b7;p=emacs.git 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) --- diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 6aa8629f334..7f894448a67 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -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)))