From febd14a9f2bcc063de1fbfb0257b2390a3e728d2 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 12 Jun 2017 02:38:36 +0200 Subject: [PATCH] Add tools/password-store unit test (#103) --- test/modules/tools/test-password-store.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 test/modules/tools/test-password-store.el diff --git a/test/modules/tools/test-password-store.el b/test/modules/tools/test-password-store.el new file mode 100644 index 000000000..a1222c365 --- /dev/null +++ b/test/modules/tools/test-password-store.el @@ -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))))