mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Fix tramp-tests.el

Browse Source 
* automated/tramp-tests.el (tramp-test06-directory-file-name):
Fix docstring and last test.
This commit is contained in:
Michael Albinus 2015-04-01 17:04:07 +02:00
parent 1b70aa634c
commit dd3f567893
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/ChangeLog
View File

@ -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.

7
test/automated/tramp-tests.el
View File

@ -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'."