(unwind-protect
(progn
(should (secrets-open-session))
-
- ;; There must be at least the collections "Login" and "session".
- (should (or (member "Login" (secrets-list-collections))
- (member "login" (secrets-list-collections))))
(should (member "session" (secrets-list-collections)))
;; Create a random collection. This asks for a password
;; There shall be no items in the "session" collection.
(should-not (secrets-list-items "session"))
- ;; There shall be items in the "Login" collection.
- (should (or (secrets-list-items "Login")
- (secrets-list-items "login")))
;; Create a new item.
(should (setq item-path (secrets-create-item "session" "foo" "secret")))