From c6ff592663e93c43ee36ba441ada5639305fee75 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 20 Jun 2022 15:45:46 +0200 Subject: [PATCH] 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 033c17444db..369de0e2457 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) -- 2.39.2