diff options
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/net/secrets-tests.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/test/lisp/net/secrets-tests.el b/test/lisp/net/secrets-tests.el index dc9c7f1004a..23512d48ee5 100644 --- a/test/lisp/net/secrets-tests.el +++ b/test/lisp/net/secrets-tests.el | |||
| @@ -169,9 +169,16 @@ | |||
| 169 | (should | 169 | (should |
| 170 | (equal | 170 | (equal |
| 171 | (secrets-get-attributes "session" "bar") | 171 | (secrets-get-attributes "session" "bar") |
| 172 | '((:host . "remote-host") (:user . "joe") | 172 | '((:xdg:schema . "org.freedesktop.Secret.Generic") |
| 173 | (:method . "sudo") | 173 | (:host . "remote-host") (:user . "joe") (:method . "sudo")))) |
| 174 | (:xdg:schema . "org.freedesktop.Secret.Generic")))) | 174 | |
| 175 | ;; Create an item with another schema. | ||
| 176 | (secrets-create-item | ||
| 177 | "session" "baz" "secret" :xdg:schema "org.gnu.Emacs.foo") | ||
| 178 | (should | ||
| 179 | (equal | ||
| 180 | (secrets-get-attributes "session" "baz") | ||
| 181 | '((:xdg:schema . "org.gnu.Emacs.foo")))) | ||
| 175 | 182 | ||
| 176 | ;; Delete them. | 183 | ;; Delete them. |
| 177 | (dolist (item (secrets-list-items "session")) | 184 | (dolist (item (secrets-list-items "session")) |
| @@ -206,6 +213,8 @@ | |||
| 206 | 213 | ||
| 207 | ;; Search the items. | 214 | ;; Search the items. |
| 208 | (should-not (secrets-search-items "session" :user "john")) | 215 | (should-not (secrets-search-items "session" :user "john")) |
| 216 | (should-not | ||
| 217 | (secrets-search-items "session" :xdg:schema "org.gnu.Emacs.foo")) | ||
| 209 | (should | 218 | (should |
| 210 | (equal | 219 | (equal |
| 211 | (sort (secrets-search-items "session" :user "joe") 'string-lessp) | 220 | (sort (secrets-search-items "session" :user "joe") 'string-lessp) |