[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e1562bb: Fix failing auth-source test
From: |
Lars Ingebrigtsen |
Subject: |
master e1562bb: Fix failing auth-source test |
Date: |
Mon, 26 Apr 2021 19:28:07 -0400 (EDT) |
branch: master
commit e1562bbab333a96c492a9f181816e9e6f80ea0d0
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix failing auth-source test
* test/lisp/auth-source-tests.el
(auth-source-test-secrets-create-secret): Fix test failing because
the mocked `read-string' had the wrong interface.
---
test/lisp/auth-source-tests.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/test/lisp/auth-source-tests.el b/test/lisp/auth-source-tests.el
index 19216d3..1c4bd8d 100644
--- a/test/lisp/auth-source-tests.el
+++ b/test/lisp/auth-source-tests.el
@@ -320,8 +320,9 @@
;; Redefine `read-*' in order to avoid interactive input.
(cl-letf (((symbol-function 'read-passwd) (lambda (_) passwd))
((symbol-function 'read-string)
- (lambda (_prompt _initial _history default
_inherit-input-method)
- default)))
+ (lambda (_prompt &optional _initial _history default
+ _inherit-input-method)
+ default)))
(setq auth-info
(car (auth-source-search
:max 1 :host host :require '(:user :secret) :create t))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e1562bb: Fix failing auth-source test,
Lars Ingebrigtsen <=