23 lines
909 B
EmacsLisp
23 lines
909 B
EmacsLisp
;;; test/modules/feature/test-password-store.el
|
|
|
|
(require! :tools password-store t)
|
|
|
|
;;
|
|
(def-test-group! tools/password-store
|
|
(ert-deftest get-field ()
|
|
(let ((data `((secret . "defuse-account-gad")
|
|
("login" . "HL2532-GANDI")
|
|
("alt-login" . "hlissner")
|
|
("email" . "henrik@lissner.net")
|
|
("url" . "https://www.gandi.net/login"))))
|
|
(should (equal (+pass-get-field data "login")
|
|
"HL2532-GANDI"))
|
|
(should (equal (+pass-get-field data "email")
|
|
"henrik@lissner.net"))
|
|
(should (equal (+pass-get-field data '("alt-login" "email"))
|
|
"hlissner"))
|
|
(should (equal (+pass-get-field data '("username" "email"))
|
|
"henrik@lissner.net"))
|
|
(should-not (+pass-get-field data '("x" "y" "z"))))
|
|
|
|
(should-error (+pass-get-field nil nil))))
|