mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Only search netrc in the netrc tests

Browse source 
* test/lisp/auth-source-tests.el
(auth-source-test-netrc-create-secret): Only search netrc.
This commit is contained in:
Lars Ingebrigtsen 2021-09-21 05:28:40 +02:00
parent 3dabd27210
commit bbef979ae1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/lisp/auth-source-tests.el
View file

@ -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)