Add tools/password-store unit test (#103)

This commit is contained in:
Henrik Lissner 2017-06-12 02:38:36 +02:00
parent 77298f3672
commit febd14a9f2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -0,0 +1,23 @@
;;; 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))))