diff options
| author | Iku Iwasa <iku.iwasa@gmail.com> | 2019-04-07 17:59:59 +0900 |
|---|---|---|
| committer | Damien Cassou <damien@cassou.me> | 2019-06-24 09:15:40 +0200 |
| commit | 2a0a05789d4734e4b3d18941346ecda9834e7cc9 (patch) | |
| tree | e229d71f1d3f97f601a94c1ede4e631435221243 /test/lisp/auth-source-pass-tests.el | |
| parent | a63cbb56dfc6074189407e9e182e807ce058e618 (diff) | |
| download | emacs-2a0a05789d4734e4b3d18941346ecda9834e7cc9.tar.gz | |
Add auth-source-pass-port-separator option
* lisp/auth-source-pass.el (auth-source-pass-port-separator): New
option to specify separator between host and port, default to
colon (":").
(auth-source-pass--find-match-unambiguous): Adapt to make use of the
new variable.
* test/lisp/auth-source-pass-tests.el: Add corresponding tests.
Diffstat (limited to 'test/lisp/auth-source-pass-tests.el')
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el index ab9ef92c144..ae7a696bc66 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el @@ -186,6 +186,17 @@ This function is intended to be set to `auth-source-debug`." (should (equal (auth-source-pass--find-match "host.com:8888" "someuser" nil) "host.com")))) +(ert-deftest auth-source-pass-find-host-with-port () + (auth-source-pass--with-store '(("host.com:443")) + (should (equal (auth-source-pass--find-match "host.com" "someuser" "443") + "host.com:443")))) + +(ert-deftest auth-source-pass-find-host-with-custom-port-separator () + (let ((auth-source-pass-port-separator "#")) + (auth-source-pass--with-store '(("host.com#443")) + (should (equal (auth-source-pass--find-match "host.com" "someuser" "443") + "host.com#443"))))) + (defmacro auth-source-pass--with-store-find-foo (store &rest body) "Use STORE while executing BODY. \"foo\" is the matched entry." (declare (indent 1)) |