diff options
| author | Michael Albinus | 2016-05-02 11:45:16 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-05-02 11:45:16 +0200 |
| commit | 1d287665dc93c97a1c55606b394bd3e05e6e2e04 (patch) | |
| tree | 8a024207f05eafbc515cb51b75e4f4cb4b66935a | |
| parent | 1997d09f78b9b7a5c2d4068e0a7c7282978742fa (diff) | |
| download | emacs-1d287665dc93c97a1c55606b394bd3e05e6e2e04.tar.gz emacs-1d287665dc93c97a1c55606b394bd3e05e6e2e04.zip | |
; Fix last commit in tramp-tests.el
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 12 |
1 files 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', | |||
| 645 | (dolist (file | 645 | (dolist (file |
| 646 | `(,(file-remote-p tramp-test-temporary-file-directory 'method) | 646 | `(,(file-remote-p tramp-test-temporary-file-directory 'method) |
| 647 | ,(file-remote-p tramp-test-temporary-file-directory 'host))) | 647 | ,(file-remote-p tramp-test-temporary-file-directory 'host))) |
| 648 | (setq file (format "/%s:" file)) | 648 | (unless (zerop (length file)) |
| 649 | (should (string-equal (directory-file-name file) file)) | 649 | (setq file (format "/%s:" file)) |
| 650 | (should (string-equal (file-name-as-directory file) (concat file "./"))) | 650 | (should (string-equal (directory-file-name file) file)) |
| 651 | (should (string-equal (file-name-directory file) file)) | 651 | (should |
| 652 | (should (string-equal (file-name-nondirectory file) "")))))) | 652 | (string-equal (file-name-as-directory file) (concat file "./"))) |
| 653 | (should (string-equal (file-name-directory file) file)) | ||
| 654 | (should (string-equal (file-name-nondirectory file) ""))))))) | ||
| 653 | 655 | ||
| 654 | (ert-deftest tramp-test07-file-exists-p () | 656 | (ert-deftest tramp-test07-file-exists-p () |
| 655 | "Check `file-exist-p', `write-region' and `delete-file'." | 657 | "Check `file-exist-p', `write-region' and `delete-file'." |