diff options
| author | Damien Cassou <damien@cassou.me> | 2020-01-21 20:13:54 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-01-22 07:37:01 +0100 |
| commit | abb2515b0c5b2468f1c0d8345788063fda64ea80 (patch) | |
| tree | 1e54ecac39166a8abb8dc210aec48812b39158a0 /test/lisp/auth-source-pass-tests.el | |
| parent | 140eb90bc5e23ad95bc5d7fce4af5bb25281a259 (diff) | |
| download | emacs-abb2515b0c5b2468f1c0d8345788063fda64ea80.tar.gz | |
* test/lisp/auth-source-pass-tests.el: Test for multiple ports.
Diffstat (limited to 'test/lisp/auth-source-pass-tests.el')
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el index 10ed9c39fbb..677abb33cc9 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")) |