From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 17 Jun 2018 09:19:16 +0000 (+0200)
Subject: Cleanup secrets-tests
X-Git-Tag: emacs-27.0.90~4820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39ccbacf9c42b2fed08c47ed7314e4c067de21b9;p=emacs.git

Cleanup secrets-tests

* test/lisp/net/secrets-tests.el (secrets-test03-items)
(secrets-test04-search): Cleanup "session" collection initially.
---

diff --git a/test/lisp/net/secrets-tests.el b/test/lisp/net/secrets-tests.el
index b501fa602d0..9aa79dab0eb 100644
--- a/test/lisp/net/secrets-tests.el
+++ b/test/lisp/net/secrets-tests.el
@@ -154,6 +154,9 @@
       (let (item-path)
 	(should (secrets-open-session))
 
+        ;; Cleanup.  There could be items in the "session" collection.
+        (secrets--test-delete-all-session-items)
+
 	;; There shall be no items in the "session" collection.
 	(should-not (secrets-list-items "session"))
 	;; There shall be items in the "Login" collection.
@@ -215,6 +218,9 @@
       (progn
 	(should (secrets-open-session))
 
+        ;; Cleanup.  There could be items in the "session" collection.
+        (secrets--test-delete-all-session-items)
+
 	;; There shall be no items in the "session" collection.
 	(should-not (secrets-list-items "session"))