procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adapt url-tramp-tests

Browse source 
* test/lisp/url/url-tramp-tests.el (url-tramp-test-convert-url-to-tramp)
(url-tramp-test-convert-tramp-to-url): Adapt tests.
This commit is contained in:
Michael Albinus 2022-06-20 15:45:46 +02:00
parent 5e7a0873c5
commit c6ff592663
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test/lisp/url/url-tramp-tests.el
View file

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