>From 7f3da2e0ab258aabeb952a5aa71199855ea3691d Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Mon, 26 Mar 2018 08:56:16 +0200 Subject: [PATCH 13/14] 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. --- test/lisp/auth-source-pass-tests.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el index 431e4e411d..b30419f44b 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el @@ -244,6 +244,13 @@ auth-source-pass--with-store-find-foo (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 -- 2.17.0