mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-25 19:11:56 +00:00
Run secrets suite test when Emacs has dbus support
* test/lisp/net/secrets-tests.el (secrets-test00-availability) (secrets-test01-sessions, secrets-test02-collections) (secrets-test03-items, secrets-test04-search): Skip test unless Emacs is compiled with dbus support.
This commit is contained in:
parent
b6aea79b00
commit
51c8369fa2
@ -28,6 +28,7 @@
|
||||
|
||||
(ert-deftest secrets-test00-availability ()
|
||||
"Test availability of Secret Service API."
|
||||
(skip-unless (featurep 'dbusbind))
|
||||
:expected-result (if secrets-enabled :passed :failed)
|
||||
(should secrets-enabled)
|
||||
(should (dbus-ping :session secrets-service))
|
||||
@ -58,6 +59,7 @@
|
||||
|
||||
(ert-deftest secrets-test01-sessions ()
|
||||
"Test opening / closing a secrets session."
|
||||
(skip-unless (featurep 'dbusbind))
|
||||
(skip-unless secrets-enabled)
|
||||
(skip-unless (secrets-empty-path secrets-session-path))
|
||||
|
||||
@ -83,6 +85,7 @@
|
||||
|
||||
(ert-deftest secrets-test02-collections ()
|
||||
"Test creation / deletion a secrets collections."
|
||||
(skip-unless (featurep 'dbusbind))
|
||||
(skip-unless secrets-enabled)
|
||||
(skip-unless (secrets-empty-path secrets-session-path))
|
||||
|
||||
@ -144,6 +147,7 @@
|
||||
|
||||
(ert-deftest secrets-test03-items ()
|
||||
"Test creation / deletion a secret item."
|
||||
(skip-unless (featurep 'dbusbind))
|
||||
(skip-unless secrets-enabled)
|
||||
(skip-unless (secrets-empty-path secrets-session-path))
|
||||
|
||||
@ -185,6 +189,7 @@
|
||||
|
||||
(ert-deftest secrets-test04-search ()
|
||||
"Test searching of secret items."
|
||||
(skip-unless (featurep 'dbusbind))
|
||||
(skip-unless secrets-enabled)
|
||||
(skip-unless (secrets-empty-path secrets-session-path))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user