diff options
| author | Michael Albinus | 2018-07-15 09:47:08 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-07-15 09:47:08 +0200 |
| commit | 02db06fc8ebc06519088505b033fd6819a71bef8 (patch) | |
| tree | 8767747b84dadd4a76bf582bbeba27661569df41 | |
| parent | b1ebc123396f91b51e27f8c61a2cfe730ed202ad (diff) | |
| download | emacs-02db06fc8ebc06519088505b033fd6819a71bef8.tar.gz emacs-02db06fc8ebc06519088505b033fd6819a71bef8.zip | |
Fix Bug#32147
* test/lisp/net/secrets-tests.el (secrets-test02-collections)
(secrets-test03-items): Test for both "Login" or "login"
collection. (Bug#32147)
| -rw-r--r-- | test/lisp/net/secrets-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/lisp/net/secrets-tests.el b/test/lisp/net/secrets-tests.el index 9aa79dab0eb..de3ce731bec 100644 --- a/test/lisp/net/secrets-tests.el +++ b/test/lisp/net/secrets-tests.el | |||
| @@ -92,7 +92,8 @@ | |||
| 92 | (should (secrets-open-session)) | 92 | (should (secrets-open-session)) |
| 93 | 93 | ||
| 94 | ;; There must be at least the collections "Login" and "session". | 94 | ;; There must be at least the collections "Login" and "session". |
| 95 | (should (member "Login" (secrets-list-collections))) | 95 | (should (or (member "Login" (secrets-list-collections)) |
| 96 | (member "login" (secrets-list-collections)))) | ||
| 96 | (should (member "session" (secrets-list-collections))) | 97 | (should (member "session" (secrets-list-collections))) |
| 97 | 98 | ||
| 98 | ;; Create a random collection. This asks for a password | 99 | ;; Create a random collection. This asks for a password |
| @@ -160,7 +161,8 @@ | |||
| 160 | ;; There shall be no items in the "session" collection. | 161 | ;; There shall be no items in the "session" collection. |
| 161 | (should-not (secrets-list-items "session")) | 162 | (should-not (secrets-list-items "session")) |
| 162 | ;; There shall be items in the "Login" collection. | 163 | ;; There shall be items in the "Login" collection. |
| 163 | (should (secrets-list-items "Login")) | 164 | (should (or (secrets-list-items "Login") |
| 165 | (secrets-list-items "login"))) | ||
| 164 | 166 | ||
| 165 | ;; Create a new item. | 167 | ;; Create a new item. |
| 166 | (should (setq item-path (secrets-create-item "session" "foo" "secret"))) | 168 | (should (setq item-path (secrets-create-item "session" "foo" "secret"))) |