mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

Fix indentation in auth-source-pass-tests.el

Browse Source 
* test/lisp/auth-source-pass-tests.el
(auth-source-pass-only-return-entries-that-can-be-open): Fix indentation.
This commit is contained in:
Damien Cassou 2017-11-07 09:33:22 +01:00 committed by Nicolas Petton
parent 59d44b528e
commit 53f044c22f
No known key found for this signature in database
GPG Key ID: E8BCD7866AFCF978
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/lisp/auth-source-pass-tests.el
View File

@ -206,12 +206,10 @@ This function is intended to be set to `auth-source-debug`."
(ert-deftest auth-source-pass-only-return-entries-that-can-be-open ()
(cl-letf (((symbol-function 'auth-source-pass-entries)
(lambda () '("foo.site.com" "bar.site.com"
"mail/baz.site.com/scott")))
(lambda () '("foo.site.com" "bar.site.com" "mail/baz.site.com/scott")))
((symbol-function 'auth-source-pass--entry-valid-p)
;; only foo.site.com and "mail/baz.site.com/scott" are valid
(lambda (entry) (member entry '("foo.site.com"
"mail/baz.site.com/scott")))))
(lambda (entry) (member entry '("foo.site.com" "mail/baz.site.com/scott")))))
(should (equal (auth-source-pass--find-all-by-entry-name "foo.site.com" "someuser")
'("foo.site.com")))
(should (equal (auth-source-pass--find-all-by-entry-name "bar.site.com" "someuser")