diff options
| author | F. Jason Park <jp@neverwas.me> | 2022-04-24 06:20:09 -0700 |
|---|---|---|
| committer | F. Jason Park <jp@neverwas.me> | 2022-11-16 21:34:36 -0800 |
| commit | c5d91358b594e057e37ea557923e6aa9d85b61e1 (patch) | |
| tree | dc86a0b116b4cd937c6c60f32cae9169c873d0af /test/lisp/erc/erc-services-tests.el | |
| parent | 2cf9e699ef0fc43a4eadaf00a1ed2f876765c64d (diff) | |
| download | emacs-c5d91358b594e057e37ea557923e6aa9d85b61e1.tar.gz emacs-c5d91358b594e057e37ea557923e6aa9d85b61e1.tar.bz2 emacs-c5d91358b594e057e37ea557923e6aa9d85b61e1.zip | |
Support auth-source-pass in ERC
* doc/misc/erc.texi: Mention that the auth-source-pass backend is
supported.
* lisp/erc/erc-compat.el (erc-compat--29-auth-source-pass-search,
erc-compat--29-auth-source-pass--build-result-many,
erc-compat--29-auth-source-pass--retrieve-parsed,
erc-compat--29-auth-source-pass-backend-parse,
erc-compat--auth-source-backend-parser-functions): Adapt some yet
unreleased functions from auth-source-pass that mimic the netrc
backend, and add forward declarations to support them.
* lisp/erc/erc.el (erc--auth-source-search): Use own auth-source-pass
erc-compat backend.
* test/lisp/erc/erc-services-tests.el
(erc-join-tests--auth-source-pass-entries): Remove useless items.
(erc--auth-source-search--pass-standard,
erc--auth-source-search--pass-announced,
erc--auth-source-search--pass-overrides): Remove `ert-skip' guard.
(Bug#58985.)
Diffstat (limited to 'test/lisp/erc/erc-services-tests.el')
| -rw-r--r-- | test/lisp/erc/erc-services-tests.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/test/lisp/erc/erc-services-tests.el b/test/lisp/erc/erc-services-tests.el index c22d4cf75ef..7ff2e36e77c 100644 --- a/test/lisp/erc/erc-services-tests.el +++ b/test/lisp/erc/erc-services-tests.el @@ -474,7 +474,6 @@ ("GNU.chat:irc/#chan" (secret . "foo")))) (ert-deftest erc--auth-source-search--pass-standard () - (ert-skip "Pass backend not yet supported") (let ((store erc-join-tests--auth-source-pass-entries) (auth-sources '(password-store)) (auth-source-do-cache nil)) @@ -487,7 +486,6 @@ (erc-services-tests--auth-source-standard #'erc-auth-source-search)))) (ert-deftest erc--auth-source-search--pass-announced () - (ert-skip "Pass backend not yet supported") (let ((store erc-join-tests--auth-source-pass-entries) (auth-sources '(password-store)) (auth-source-do-cache nil)) @@ -500,7 +498,6 @@ (erc-services-tests--auth-source-announced #'erc-auth-source-search)))) (ert-deftest erc--auth-source-search--pass-overrides () - (ert-skip "Pass backend not yet supported") (let ((store `(,@erc-join-tests--auth-source-pass-entries ("GNU.chat:6697/#chan" (secret . "spam")) |