diff options
| -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 @@ | |||
| 376 | (md5 (concat (prin1-to-string process-environment) passwd)) | 376 | (md5 (concat (prin1-to-string process-environment) passwd)) |
| 377 | auth-info | 377 | auth-info |
| 378 | (car (auth-source-search | 378 | (car (auth-source-search |
| 379 | :max 1 :host host :require '(:user :secret) :create t)) | 379 | :max 1 :host host :require '(:user :secret) :create t |
| 380 | :type 'netrc)) | ||
| 380 | auth-passwd (plist-get auth-info :secret) | 381 | auth-passwd (plist-get auth-info :secret) |
| 381 | auth-passwd (if (functionp auth-passwd) | 382 | auth-passwd (if (functionp auth-passwd) |
| 382 | (funcall auth-passwd) | 383 | (funcall auth-passwd) |