diff options
| author | Damien Cassou | 2018-03-26 08:56:16 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2018-06-05 15:53:33 +0200 |
| commit | 47ccee220a49dea8c35318f83b854dfa368606ec (patch) | |
| tree | fbe7299bdebf2c510d12554ea26d82504a5df848 /test | |
| parent | 03c50fc7aecab0b42f9f80600d7cbc4c53bae54a (diff) | |
| download | emacs-47ccee220a49dea8c35318f83b854dfa368606ec.tar.gz emacs-47ccee220a49dea8c35318f83b854dfa368606ec.zip | |
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')
| -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`." | |||
| 244 | (should (auth-source-pass--entry-valid-p "foo")) | 244 | (should (auth-source-pass--entry-valid-p "foo")) |
| 245 | (should-not (auth-source-pass--entry-valid-p "bar")))) | 245 | (should-not (auth-source-pass--entry-valid-p "bar")))) |
| 246 | 246 | ||
| 247 | (ert-deftest auth-source-pass-can-start-from-auth-source-search () | ||
| 248 | (auth-source-pass--with-store '(("gitlab.com" ("user" . "someone"))) | ||
| 249 | (auth-source-pass-enable) | ||
| 250 | (let ((result (car (auth-source-search :host "gitlab.com")))) | ||
| 251 | (should (equal (plist-get result :user) "someone")) | ||
| 252 | (should (equal (plist-get result :host) "gitlab.com"))))) | ||
| 253 | |||
| 247 | (provide 'auth-source-pass-tests) | 254 | (provide 'auth-source-pass-tests) |
| 248 | 255 | ||
| 249 | ;;; auth-source-pass-tests.el ends here | 256 | ;;; auth-source-pass-tests.el ends here |