aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorDamien Cassou2017-11-07 09:33:22 +0100
committerNicolas Petton2018-06-05 15:50:54 +0200
commit53f044c22f9f94e7663b7343c5100904a68f6de5 (patch)
treef1cde25351e011895a23d6de511d5fb8b669170e /test
parent59d44b528e028192a7d3d576795a7957c92da682 (diff)
downloademacs-53f044c22f9f94e7663b7343c5100904a68f6de5.tar.gz
emacs-53f044c22f9f94e7663b7343c5100904a68f6de5.zip
Fix indentation in auth-source-pass-tests.el
* test/lisp/auth-source-pass-tests.el (auth-source-pass-only-return-entries-that-can-be-open): Fix indentation.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/auth-source-pass-tests.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el
index 557a34ff596..adb0b5d93fe 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -206,12 +206,10 @@ This function is intended to be set to `auth-source-debug`."
206 206
207(ert-deftest auth-source-pass-only-return-entries-that-can-be-open () 207(ert-deftest auth-source-pass-only-return-entries-that-can-be-open ()
208 (cl-letf (((symbol-function 'auth-source-pass-entries) 208 (cl-letf (((symbol-function 'auth-source-pass-entries)
209 (lambda () '("foo.site.com" "bar.site.com" 209 (lambda () '("foo.site.com" "bar.site.com" "mail/baz.site.com/scott")))
210 "mail/baz.site.com/scott")))
211 ((symbol-function 'auth-source-pass--entry-valid-p) 210 ((symbol-function 'auth-source-pass--entry-valid-p)
212 ;; only foo.site.com and "mail/baz.site.com/scott" are valid 211 ;; only foo.site.com and "mail/baz.site.com/scott" are valid
213 (lambda (entry) (member entry '("foo.site.com" 212 (lambda (entry) (member entry '("foo.site.com" "mail/baz.site.com/scott")))))
214 "mail/baz.site.com/scott")))))
215 (should (equal (auth-source-pass--find-all-by-entry-name "foo.site.com" "someuser") 213 (should (equal (auth-source-pass--find-all-by-entry-name "foo.site.com" "someuser")
216 '("foo.site.com"))) 214 '("foo.site.com")))
217 (should (equal (auth-source-pass--find-all-by-entry-name "bar.site.com" "someuser") 215 (should (equal (auth-source-pass--find-all-by-entry-name "bar.site.com" "someuser")