diff options
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el index 2ddbcab233c..6d471f4e342 100644 --- a/test/lisp/auth-source-pass-tests.el +++ b/test/lisp/auth-source-pass-tests.el | |||
| @@ -209,7 +209,13 @@ This function is intended to be set to `auth-source-debug`." | |||
| 209 | (cl-letf (((symbol-function 'auth-source-pass--find-match) | 209 | (cl-letf (((symbol-function 'auth-source-pass--find-match) |
| 210 | (lambda (host _user) (setq passed-host host)))) | 210 | (lambda (host _user) (setq passed-host host)))) |
| 211 | (auth-source-pass--build-result "https://user@host.com:123" nil nil) | 211 | (auth-source-pass--build-result "https://user@host.com:123" nil nil) |
| 212 | (should (equal passed-host "https://user@host.com:123"))))) | 212 | (should (equal passed-host "https://user@host.com:123")) |
| 213 | (auth-source-pass--build-result "https://user@host.com" nil nil) | ||
| 214 | (should (equal passed-host "https://user@host.com")) | ||
| 215 | (auth-source-pass--build-result "user@host.com" nil nil) | ||
| 216 | (should (equal passed-host "user@host.com")) | ||
| 217 | (auth-source-pass--build-result "user@host.com:443" nil nil) | ||
| 218 | (should (equal passed-host "user@host.com:443"))))) | ||
| 213 | 219 | ||
| 214 | (ert-deftest auth-source-pass-only-return-entries-that-can-be-open () | 220 | (ert-deftest auth-source-pass-only-return-entries-that-can-be-open () |
| 215 | (cl-letf (((symbol-function 'auth-source-pass-entries) | 221 | (cl-letf (((symbol-function 'auth-source-pass-entries) |