diff options
| author | Damien Cassou <damien@cassou.me> | 2017-11-07 09:48:50 +0100 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2018-06-05 15:51:09 +0200 |
| commit | a52661b58bc9cffa13cb5f0749cdb3a4c24fbf74 (patch) | |
| tree | 706900032672008676b1c2895d41cac35b4b5020 | |
| parent | 5b31e6de99d2c56ba61ea439b0b44862813d9480 (diff) | |
| download | emacs-a52661b58bc9cffa13cb5f0749cdb3a4c24fbf74.tar.gz emacs-a52661b58bc9cffa13cb5f0749cdb3a4c24fbf74.tar.bz2 emacs-a52661b58bc9cffa13cb5f0749cdb3a4c24fbf74.zip | |
Add missing test cases 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
missing test cases.
| -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`." (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"))))) + (should (equal passed-host "https://user@host.com:123")) + (auth-source-pass--build-result "https://user@host.com" nil nil) + (should (equal passed-host "https://user@host.com")) + (auth-source-pass--build-result "user@host.com" nil nil) + (should (equal passed-host "user@host.com")) + (auth-source-pass--build-result "user@host.com:443" nil nil) + (should (equal passed-host "user@host.com:443"))))) (ert-deftest auth-source-pass-only-return-entries-that-can-be-open () (cl-letf (((symbol-function 'auth-source-pass-entries) |