>From 4f5cd8ce6d6784c941450e00d8c3b91838071d61 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edison=20Iba=C3=B1ez?= Date: Tue, 7 Nov 2017 09:00:43 +0100 Subject: [PATCH 02/14] * 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 86f59e5166..557a34ff59 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el @@ -166,11 +166,13 @@ auth-source-pass--with-store "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.17.0