[Emacs-diffs] emacs-24 dd3f567: Fix tramp-tests.el

[Michael Albinus]

branch: emacs-24
commit dd3f56789371c904c53f057b288cdcfc9cc56b25
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix tramp-tests.el
    
    * automated/tramp-tests.el (tramp-test06-directory-file-name):
    Fix docstring and last test.
---
 test/ChangeLog                |    5 +++++
 test/automated/tramp-tests.el |    7 +++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/test/ChangeLog b/test/ChangeLog
index 4854431..fa3c45d 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-01  Michael Albinus  <address@hidden>
+
+       * automated/tramp-tests.el (tramp-test06-directory-file-name):
+       Fix docstring and last test.
+
 2015-04-01  Nicolas Petton  <address@hidden>
 
        * Version 24.5 released.
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 6b0d89f..dca188a 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'."