aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/auth-source-pass-tests.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el
index 6e6671efca5..1107e09b51b 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -697,29 +697,29 @@ machine Libera.Chat password b
697;; with slightly more realistic and less legible values. 697;; with slightly more realistic and less legible values.
698 698
699(ert-deftest auth-source-pass-extra-query-keywords--suffixed-user () 699(ert-deftest auth-source-pass-extra-query-keywords--suffixed-user ()
700 (let ((store (sort (copy-sequence '(("x.com:42/bar" (secret . "a")) 700 (let ((store (sort (copy-sequence '(("x.com:42/b@r" (secret . "a"))
701 ("bar@x.com" (secret . "b")) 701 ("b@r@x.com" (secret . "b"))
702 ("x.com" (secret . "?")) 702 ("x.com" (secret . "?"))
703 ("bar@y.org" (secret . "c")) 703 ("b@r@y.org" (secret . "c"))
704 ("fake.com" (secret . "?")) 704 ("fake.com" (secret . "?"))
705 ("fake.com/bar" (secret . "d")) 705 ("fake.com/b@r" (secret . "d"))
706 ("y.org/bar" (secret . "?")) 706 ("y.org/b@r" (secret . "?"))
707 ("bar@fake.com" (secret . "e")))) 707 ("b@r@fake.com" (secret . "e"))))
708 (lambda (&rest _) (zerop (random 2)))))) 708 (lambda (&rest _) (zerop (random 2))))))
709 (auth-source-pass--with-store store 709 (auth-source-pass--with-store store
710 (auth-source-pass-enable) 710 (auth-source-pass-enable)
711 (let* ((auth-source-pass-extra-query-keywords t) 711 (let* ((auth-source-pass-extra-query-keywords t)
712 (results (auth-source-search :host '("x.com" "fake.com" "y.org") 712 (results (auth-source-search :host '("x.com" "fake.com" "y.org")
713 :user "bar" 713 :user "b@r"
714 :require '(:user) :max 5))) 714 :require '(:user) :max 5)))
715 (dolist (result results) 715 (dolist (result results)
716 (setf (plist-get result :secret) (auth-info-password result))) 716 (setf (plist-get result :secret) (auth-info-password result)))
717 (should (equal results 717 (should (equal results
718 '((:host "x.com" :user "bar" :secret "b") 718 '((:host "x.com" :user "b@r" :secret "b")
719 (:host "x.com" :user "bar" :port "42" :secret "a") 719 (:host "x.com" :user "b@r" :port "42" :secret "a")
720 (:host "fake.com" :user "bar" :secret "e") 720 (:host "fake.com" :user "b@r" :secret "e")
721 (:host "fake.com" :user "bar" :secret "d") 721 (:host "fake.com" :user "b@r" :secret "d")
722 (:host "y.org" :user "bar" :secret "c")))))))) 722 (:host "y.org" :user "b@r" :secret "c"))))))))
723 723
724;; This is a more distilled version of `suffixed-user', above. It 724;; This is a more distilled version of `suffixed-user', above. It
725;; better illustrates that search order takes precedence over "/user" 725;; better illustrates that search order takes precedence over "/user"