From 59d44b528e028192a7d3d576795a7957c92da682 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Edison=20Iba=C3=B1ez?= Date: Tue, 7 Nov 2017 09:00:43 +0100 Subject: [PATCH] * 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 86f59e51664..557a34ff596 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://SomeUser@foo.bar") "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://SomeUser@foo.bar") "SomeUser@foo.bar"))) -- 2.39.5