36 lines
1.3 KiB
EmacsLisp
36 lines
1.3 KiB
EmacsLisp
|
;; -*- no-byte-compile: t; -*-
|
||
|
|
;;; tools/password-store/test/autoload-pass.el
|
||
|
|
|
||
|
|
(defmacro -with-passwords! (buffer-args &rest body)
|
||
|
|
(declare (indent defun))
|
||
|
|
`(cl-letf
|
||
|
|
(((symbol-function 'auth-pass-parse-entry)
|
||
|
|
(lambda (entry)
|
||
|
|
(when (equal entry "fake/source")
|
||
|
|
'((secret . "defuse-account-gad")
|
||
|
|
("login" . "HL2532-GANDI")
|
||
|
|
("alt-login" . "hlissner")
|
||
|
|
("email" . "henrik@lissner.net")
|
||
|
|
("url" . "https://www.gandi.net/login"))))))
|
||
|
|
,@body))
|
||
|
|
|
||
|
|
;;
|
||
|
|
(def-test! get-field
|
||
|
|
(-with-passwords!
|
||
|
|
(should (equal (+pass-get-field "fake/source" "login")
|
||
|
|
"HL2532-GANDI"))
|
||
|
|
(should (equal (+pass-get-field "fake/source" "email")
|
||
|
|
"henrik@lissner.net"))
|
||
|
|
(should (equal (+pass-get-field "fake/source" '("alt-login" "email"))
|
||
|
|
"hlissner"))
|
||
|
|
(should (equal (+pass-get-field "fake/source" '("username" "email"))
|
||
|
|
"henrik@lissner.net"))
|
||
|
|
(should-not (+pass-get-field "fake/source" '("x" "y" "z")))
|
||
|
|
|
||
|
|
(should-error (+pass-get-field "nonexistent/source" "login"))))
|
||
|
|
|
||
|
|
(def-test! get-login
|
||
|
|
(-with-passwords!
|
||
|
|
(should (equal (+pass-get-user "fake/source") "HL2532-GANDI"))
|
||
|
|
(should (equal (+pass-get-secret "fake/source") "defuse-account-gad"))))
|