>From afd2ebb80c80573447ec1dc23bc1625f9b41046a Mon Sep 17 00:00:00 2001 From: Damien Cassou Date: Fri, 22 Nov 2019 09:36:44 +0100 Subject: [PATCH] WIP --- test/auth-source-pass-tests.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/auth-source-pass-tests.el b/test/auth-source-pass-tests.el index bec42a5..ed1752d 100644 --- a/test/auth-source-pass-tests.el +++ b/test/auth-source-pass-tests.el @@ -353,6 +353,10 @@ (ert-deftest auth-source-pass--matching-entries-find-entries-with-a-port () (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")) -- 2.23.0