[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1d28766: ; Fix last commit in tramp-tests.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 1d28766: ; Fix last commit in tramp-tests.el |
Date: |
Mon, 02 May 2016 09:45:28 +0000 |
branch: master
commit 1d287665dc93c97a1c55606b394bd3e05e6e2e04
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
; 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 5090a5b..efb19e9 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'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1d28766: ; Fix last commit in tramp-tests.el,
Michael Albinus <=