diff options
| author | Damien Cassou <damien@cassou.me> | 2018-03-26 08:56:16 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2018-06-05 15:53:33 +0200 |
| commit | 47ccee220a49dea8c35318f83b854dfa368606ec (patch) | |
| tree | fbe7299bdebf2c510d12554ea26d82504a5df848 /test/lisp/auth-source-pass-tests.el | |
| parent | 03c50fc7aecab0b42f9f80600d7cbc4c53bae54a (diff) | |
| download | emacs-47ccee220a49dea8c35318f83b854dfa368606ec.tar.gz | |
Test checking that auth-source-pass backend is correctly installed
* test/lisp/auth-source-pass-tests.el
(auth-source-pass-can-start-from-auth-source-search): Add test.
Diffstat (limited to 'test/lisp/auth-source-pass-tests.el')
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el index 431e4e411d9..b30419f44b0 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el @@ -244,6 +244,13 @@ This function is intended to be set to `auth-source-debug`." (should (auth-source-pass--entry-valid-p "foo")) (should-not (auth-source-pass--entry-valid-p "bar")))) +(ert-deftest auth-source-pass-can-start-from-auth-source-search () + (auth-source-pass--with-store '(("gitlab.com" ("user" . "someone"))) + (auth-source-pass-enable) + (let ((result (car (auth-source-search :host "gitlab.com")))) + (should (equal (plist-get result :user) "someone")) + (should (equal (plist-get result :host) "gitlab.com"))))) + (provide 'auth-source-pass-tests) ;;; auth-source-pass-tests.el ends here |