diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 05:28:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 05:28:45 +0200 |
| commit | bbef979ae191b107714fe41258bd6bf0ec956352 (patch) | |
| tree | 6d0a7a36006bb65ec0e7170dc04ab37ad086f389 | |
| parent | 3dabd272101bc82980a3cfdb748039c3228c762c (diff) | |
| download | emacs-bbef979ae191b107714fe41258bd6bf0ec956352.tar.gz | |
Only search netrc in the netrc tests
* test/lisp/auth-source-tests.el
(auth-source-test-netrc-create-secret): Only search netrc.
| -rw-r--r-- | test/lisp/auth-source-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el index 226bb69c463..438f6ebbed1 100644 --- a/test/lisp/auth-source-tests.el +++ b/test/lisp/auth-source-tests.el @@ -376,7 +376,8 @@ (md5 (concat (prin1-to-string process-environment) passwd)) auth-info (car (auth-source-search - :max 1 :host host :require '(:user :secret) :create t)) + :max 1 :host host :require '(:user :secret) :create t + :type 'netrc)) auth-passwd (plist-get auth-info :secret) auth-passwd (if (functionp auth-passwd) (funcall auth-passwd) |