[Emacs-diffs] master 59d44b5 02/14: * test/lisp/auth-source-pass-tests.el: Add assertions for host:port

[Nicolas Petton]

branch: master
commit 59d44b528e028192a7d3d576795a7957c92da682
Author: Edison Ibañez <address@hidden>
Commit: Nicolas Petton <address@hidden>

    * test/lisp/auth-source-pass-tests.el: Add assertions for host:port
---
 test/lisp/auth-source-pass-tests.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/test/lisp/auth-source-pass-tests.el 
b/test/lisp/auth-source-pass-tests.el
index 86f59e5..557a34f 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -166,11 +166,13 @@ This function is intended to be set to 
`auth-source-debug`."
                    "host.com"))))
 
 (ert-deftest auth-source-pass-hostname ()
+  (should (equal (auth-source-pass--hostname "https://foo.bar:443";) "foo.bar"))
   (should (equal (auth-source-pass--hostname "https://foo.bar";) "foo.bar"))
   (should (equal (auth-source-pass--hostname "http://foo.bar";) "foo.bar"))
   (should (equal (auth-source-pass--hostname "https://address@hidden";) 
"foo.bar")))
 
 (ert-deftest auth-source-pass-hostname-with-user ()
+  (should (equal (auth-source-pass--hostname-with-user "https://foo.bar:443";) 
"foo.bar"))
   (should (equal (auth-source-pass--hostname-with-user "https://foo.bar";) 
"foo.bar"))
   (should (equal (auth-source-pass--hostname-with-user "http://foo.bar";) 
"foo.bar"))
   (should (equal (auth-source-pass--hostname-with-user 
"https://address@hidden";) "address@hidden")))