diff options
| author | Michael Albinus | 2018-05-22 11:32:33 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-05-22 11:32:33 +0200 |
| commit | 19e642fdb07b0b6522983e2fa35872ba5fb9f75e (patch) | |
| tree | c2d2b58641c92c3295c376507deefeb9a1b38f55 /test | |
| parent | d2d35febf28632aafb087952fd4c07c2899e21c5 (diff) | |
| download | emacs-19e642fdb07b0b6522983e2fa35872ba5fb9f75e.tar.gz emacs-19e642fdb07b0b6522983e2fa35872ba5fb9f75e.zip | |
Extend secrets.el by searching for object paths.
* lisp/net/secrets.el (secrets-search-item-paths): New function.
(secrets-search-items): Use it.
(secrets-create-item): Adapt docstring.
* test/lisp/net/secrets-tests.el (secrets-test04-search): Extend test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/secrets-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/lisp/net/secrets-tests.el b/test/lisp/net/secrets-tests.el index 9a61bca4351..b501fa602d0 100644 --- a/test/lisp/net/secrets-tests.el +++ b/test/lisp/net/secrets-tests.el | |||
| @@ -232,7 +232,10 @@ | |||
| 232 | "session" "baz" "secret" | 232 | "session" "baz" "secret" |
| 233 | :method "ssh" :user "joe" :host "other-host")) | 233 | :method "ssh" :user "joe" :host "other-host")) |
| 234 | 234 | ||
| 235 | ;; Search the items. | 235 | ;; Search the items. `secrets-search-items' uses |
| 236 | ;; `secrets-search-item-paths' internally, it is sufficient to | ||
| 237 | ;; test only one of them. | ||
| 238 | (should-not (secrets-search-item-paths "session" :user "john")) | ||
| 236 | (should-not (secrets-search-items "session" :user "john")) | 239 | (should-not (secrets-search-items "session" :user "john")) |
| 237 | (should-not | 240 | (should-not |
| 238 | (secrets-search-items "session" :xdg:schema "org.gnu.Emacs.foo")) | 241 | (secrets-search-items "session" :xdg:schema "org.gnu.Emacs.foo")) |