From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 2 May 2016 09:45:16 +0000 (+0200)
Subject: ; Fix last commit in tramp-tests.el
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/1d287665dc93c97a1c55606b394bd3e05e6e2e04

; Fix last commit in tramp-tests.el
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 5090a5b0e4..efb19e9f50 100644
--- 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'."