[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c6ff592663: Adapt url-tramp-tests
From: |
Michael Albinus |
Subject: |
master c6ff592663: Adapt url-tramp-tests |
Date: |
Mon, 20 Jun 2022 09:46:00 -0400 (EDT) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c6ff592663: Adapt url-tramp-tests,
Michael Albinus <=