[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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ddf6226: Fix newly introduced error in tramp-tests.el (Bug#49406),
Michael Albinus <=