master c6ff592663: Adapt url-tramp-tests

[Michael Albinus]

branch: master
commit c6ff592663e93c43ee36ba441ada5639305fee75
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Adapt url-tramp-tests
    
    * test/lisp/url/url-tramp-tests.el (url-tramp-test-convert-url-to-tramp)
    (url-tramp-test-convert-tramp-to-url): Adapt tests.
---
 test/lisp/url/url-tramp-tests.el | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/test/lisp/url/url-tramp-tests.el b/test/lisp/url/url-tramp-tests.el
index 033c17444d..369de0e245 100644
--- a/test/lisp/url/url-tramp-tests.el
+++ b/test/lisp/url/url-tramp-tests.el
@@ -55,8 +55,12 @@
     (password-cache-remove key)
     (should-not (password-in-cache-p key)))
 
-  ;; "http" does not belong to `url-tramp-protocols'.
-  (should-not (url-tramp-convert-url-to-tramp "http://www.gnu.org";)))
+  ;; "http" does not belong to `url-tramp-protocols'.  The string
+  ;; isn't changed, therefore.
+  (should
+   (string-equal
+    (url-tramp-convert-url-to-tramp "http://www.gnu.org";)
+    "http://www.gnu.org";)))
 
 (ert-deftest url-tramp-test-convert-tramp-to-url ()
   "Test that Tramp file names are converted into proper URLs."
@@ -75,8 +79,12 @@
     (url-tramp-convert-tramp-to-url "/telnet:user@remotehost#42:")
     "telnet://user@remotehost:42"))
 
-  ;; "sftp" does not belong to `url-tramp-protocols'.
-  (should-not (url-tramp-convert-tramp-to-url "/sftp:user@localhost:")))
+  ;; "sftp" does not belong to `url-tramp-protocols'.  The string
+  ;; isn't changed, therefore.
+  (should
+   (string-equal
+    (url-tramp-convert-tramp-to-url "/sftp:user@localhost:")
+    "/sftp:user@localhost:")))
 
 (provide 'url-tramp-tests)