Commit dd3f5678 authored by Michael Albinus's avatar Michael Albinus

Fix tramp-tests.el

* automated/tramp-tests.el (tramp-test06-directory-file-name):
Fix docstring and last test.
parent 1b70aa63
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> 2015-04-01 Nicolas Petton <nicolas@petton.fr>
* Version 24.5 released. * Version 24.5 released.
......
...@@ -558,8 +558,8 @@ shall not contain a timeout." ...@@ -558,8 +558,8 @@ shall not contain a timeout."
(ert-deftest tramp-test06-directory-file-name () (ert-deftest tramp-test06-directory-file-name ()
"Check `directory-file-name'. "Check `directory-file-name'.
This checks also `file-name-as-directory', `file-name-directory' This checks also `file-name-as-directory', `file-name-directory',
and `file-name-nondirectory'." `file-name-nondirectory' and `unhandled-file-name-directory'."
(should (should
(string-equal (string-equal
(directory-file-name "/method:host:/path/to/file") (directory-file-name "/method:host:/path/to/file")
...@@ -589,8 +589,7 @@ and `file-name-nondirectory'." ...@@ -589,8 +589,7 @@ and `file-name-nondirectory'."
(should (should
(string-equal (file-name-nondirectory "/method:host:/path/to/file/") "")) (string-equal (file-name-nondirectory "/method:host:/path/to/file/") ""))
(should-not (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 () (ert-deftest tramp-test07-file-exists-p ()
"Check `file-exist-p', `write-region' and `delete-file'." "Check `file-exist-p', `write-region' and `delete-file'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment