diff options
| author | Edison Ibañez | 2017-11-07 09:00:43 +0100 |
|---|---|---|
| committer | Nicolas Petton | 2018-06-05 15:50:46 +0200 |
| commit | 59d44b528e028192a7d3d576795a7957c92da682 (patch) | |
| tree | 3e0b6ecac22e81b12891339345f7b8a9e4c6403d | |
| parent | a6b1cb01b12752204addc0db2ad016439574e05d (diff) | |
| download | emacs-59d44b528e028192a7d3d576795a7957c92da682.tar.gz emacs-59d44b528e028192a7d3d576795a7957c92da682.zip | |
* test/lisp/auth-source-pass-tests.el: Add assertions for host:port
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 2 |
1 files changed, 2 insertions, 0 deletions
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`." | |||
| 166 | "host.com")))) | 166 | "host.com")))) |
| 167 | 167 | ||
| 168 | (ert-deftest auth-source-pass-hostname () | 168 | (ert-deftest auth-source-pass-hostname () |
| 169 | (should (equal (auth-source-pass--hostname "https://foo.bar:443") "foo.bar")) | ||
| 169 | (should (equal (auth-source-pass--hostname "https://foo.bar") "foo.bar")) | 170 | (should (equal (auth-source-pass--hostname "https://foo.bar") "foo.bar")) |
| 170 | (should (equal (auth-source-pass--hostname "http://foo.bar") "foo.bar")) | 171 | (should (equal (auth-source-pass--hostname "http://foo.bar") "foo.bar")) |
| 171 | (should (equal (auth-source-pass--hostname "https://SomeUser@foo.bar") "foo.bar"))) | 172 | (should (equal (auth-source-pass--hostname "https://SomeUser@foo.bar") "foo.bar"))) |
| 172 | 173 | ||
| 173 | (ert-deftest auth-source-pass-hostname-with-user () | 174 | (ert-deftest auth-source-pass-hostname-with-user () |
| 175 | (should (equal (auth-source-pass--hostname-with-user "https://foo.bar:443") "foo.bar")) | ||
| 174 | (should (equal (auth-source-pass--hostname-with-user "https://foo.bar") "foo.bar")) | 176 | (should (equal (auth-source-pass--hostname-with-user "https://foo.bar") "foo.bar")) |
| 175 | (should (equal (auth-source-pass--hostname-with-user "http://foo.bar") "foo.bar")) | 177 | (should (equal (auth-source-pass--hostname-with-user "http://foo.bar") "foo.bar")) |
| 176 | (should (equal (auth-source-pass--hostname-with-user "https://SomeUser@foo.bar") "SomeUser@foo.bar"))) | 178 | (should (equal (auth-source-pass--hostname-with-user "https://SomeUser@foo.bar") "SomeUser@foo.bar"))) |