master abb2515: * test/lisp/auth-source-pass-tests.el: Test for multiple ports.

[Stefan Kangas]

branch: master
commit abb2515b0c5b2468f1c0d8345788063fda64ea80
Author: Damien Cassou <address@hidden>
Commit: Stefan Kangas <address@hidden>

    * test/lisp/auth-source-pass-tests.el: Test for multiple ports.
---
 test/lisp/auth-source-pass-tests.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/lisp/auth-source-pass-tests.el 
b/test/lisp/auth-source-pass-tests.el
index 10ed9c3..677abb3 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -353,6 +353,10 @@ HOSTNAME, USER and PORT are passed unchanged to
   (auth-source-pass--with-store '(("bar.com:8080"))
     (should (auth-source-pass-match-entry-p "bar.com:8080" "bar.com" nil 
"8080"))))
 
+(ert-deftest 
auth-source-pass--matching-entries-find-entries-with-a-port-when-passed-multiple-ports
 ()
+  (auth-source-pass--with-store '(("bar.com:8080"))
+    (should (auth-source-pass-match-entry-p "bar.com:8080" "bar.com" nil 
'("http" "https" "80" "8080")))))
+
 (ert-deftest auth-source-pass--matching-entries-find-entries-with-slash ()
   ;; match if entry filename matches user
   (auth-source-pass--with-store '(("foo.com/user"))