; Fix last commit in tramp-tests.el

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 5090a5b0e411e30887bff4ac864bc15fed8ba961..efb19e9f5062ad3514839b4e31aeb85ae778e2b6 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -645,11 +645,13 @@ This checks also `file-name-as-directory', `file-name-directory',
       (dolist (file
               `(,(file-remote-p tramp-test-temporary-file-directory 'method)
                 ,(file-remote-p tramp-test-temporary-file-directory 'host)))
-       (setq file (format "/%s:" file))
-       (should (string-equal (directory-file-name file) file))
-       (should (string-equal (file-name-as-directory file) (concat file "./")))
-       (should (string-equal (file-name-directory file) file))
-       (should (string-equal (file-name-nondirectory file) ""))))))
+       (unless (zerop (length file))
+         (setq file (format "/%s:" file))
+         (should (string-equal (directory-file-name file) file))
+         (should
+          (string-equal (file-name-as-directory file) (concat file "./")))
+         (should (string-equal (file-name-directory file) file))
+         (should (string-equal (file-name-nondirectory file) "")))))))
 
 (ert-deftest tramp-test07-file-exists-p ()
   "Check `file-exist-p', `write-region' and `delete-file'."