diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2015-04-01 17:04:07 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-04-01 17:04:07 +0200 |
| commit | dd3f56789371c904c53f057b288cdcfc9cc56b25 (patch) | |
| tree | c1e984eea877ac4aaeb38a6ccbca0df6b1408e4a | |
| parent | 1b70aa634c9ce117fed418894b54b1f2647bda1c (diff) | |
| download | emacs-dd3f56789371c904c53f057b288cdcfc9cc56b25.tar.gz | |
Fix tramp-tests.el
* automated/tramp-tests.el (tramp-test06-directory-file-name):
Fix docstring and last test.
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/automated/tramp-tests.el | 7 |
2 files changed, 8 insertions, 4 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 48544311553..fa3c45d9d45 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2015-04-01 Michael Albinus <michael.albinus@gmx.de> + + * automated/tramp-tests.el (tramp-test06-directory-file-name): + Fix docstring and last test. + 2015-04-01 Nicolas Petton <nicolas@petton.fr> * Version 24.5 released. diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 6b0d89f9b0a..dca188a9eb6 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el @@ -558,8 +558,8 @@ shall not contain a timeout." (ert-deftest tramp-test06-directory-file-name () "Check `directory-file-name'. -This checks also `file-name-as-directory', `file-name-directory' -and `file-name-nondirectory'." +This checks also `file-name-as-directory', `file-name-directory', +`file-name-nondirectory' and `unhandled-file-name-directory'." (should (string-equal (directory-file-name "/method:host:/path/to/file") @@ -589,8 +589,7 @@ and `file-name-nondirectory'." (should (string-equal (file-name-nondirectory "/method:host:/path/to/file/") "")) (should-not - (file-remote-p - (unhandled-file-name-directory "/method:host:/path/to/file")))) + (unhandled-file-name-directory "/method:host:/path/to/file"))) (ert-deftest tramp-test07-file-exists-p () "Check `file-exist-p', `write-region' and `delete-file'." |