>From a1bc5d5db43018da2c3954c9207536095475bb00 Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Tue, 7 Nov 2017 09:32:30 +0100 Subject: [PATCH 04/14] Add a test to auth-source-pass-tests.el * test/lisp/auth-source-pass-tests.el (auth-source-pass-build-result-passes-full-host-to-find-match): Add test making sure find-match is called with full host. --- 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 adb0b5d93f..2ddbcab233 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el @@ -204,6 +204,13 @@ auth-source-pass--with-store-find-foo (should (equal (plist-get result :port) 512)) (should (equal (plist-get result :user) "anuser"))))) +(ert-deftest auth-source-pass-build-result-passes-full-host-to-find-match () + (let (passed-host) + (cl-letf (((symbol-function 'auth-source-pass--find-match) + (lambda (host _user) (setq passed-host host)))) + (auth-source-pass--build-result "https://user@host.com:123" nil nil) + (should (equal passed-host "https://user@host.com:123"))))) + (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"))) -- 2.17.0