From ddf6226350934a9e9ffe436d46141c752eb440b7 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 5 Jul 2021 10:24:31 +0200 Subject: [PATCH] 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) --- test/lisp/net/tramp-tests.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 2.39.2