From 1d287665dc93c97a1c55606b394bd3e05e6e2e04 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 2 May 2016 11:45:16 +0200 Subject: [PATCH] ; Fix last commit in tramp-tests.el --- test/lisp/net/tramp-tests.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 5090a5b0e41..efb19e9f506 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'." -- 2.39.2