[Emacs-diffs] master a52661b 05/14: Add missing test cases to auth-source-pass-tests.el

[Nicolas Petton]

branch: master
commit a52661b58bc9cffa13cb5f0749cdb3a4c24fbf74
Author: Damien Cassou <address@hidden>
Commit: Nicolas Petton <address@hidden>

    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.
---
 test/lisp/auth-source-pass-tests.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test/lisp/auth-source-pass-tests.el 
b/test/lisp/auth-source-pass-tests.el
index 2ddbcab..6d471f4 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://address@hidden:123"; nil nil)
-      (should (equal passed-host "https://address@hidden:123";)))))
+      (should (equal passed-host "https://address@hidden:123";))
+      (auth-source-pass--build-result "https://address@hidden"; nil nil)
+      (should (equal passed-host "https://address@hidden";))
+      (auth-source-pass--build-result "address@hidden" nil nil)
+      (should (equal passed-host "address@hidden"))
+      (auth-source-pass--build-result "address@hidden:443" nil nil)
+      (should (equal passed-host "address@hidden:443")))))
 
 (ert-deftest auth-source-pass-only-return-entries-that-can-be-open ()
   (cl-letf (((symbol-function 'auth-source-pass-entries)