emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Michael Albinus
Subject: master ddf6226: Fix newly introduced error in tramp-tests.el (Bug#49406)
Date: Mon, 5 Jul 2021 04:24:40 -0400 (EDT)

branch: master
commit ddf6226350934a9e9ffe436d46141c752eb440b7
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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 6aa8629..7f89444 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]