diff options
Diffstat (limited to 'gnu/tests/telephony.scm')
| -rw-r--r-- | gnu/tests/telephony.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/gnu/tests/telephony.scm b/gnu/tests/telephony.scm index 442258dbc3..f7d9c73767 100644 --- a/gnu/tests/telephony.scm +++ b/gnu/tests/telephony.scm @@ -184,13 +184,22 @@ jami account used as part of the jami configuration are left *unspecified*." %load-path) marionette)) + (test-assert "dbus session is up" + (and (marionette-eval + '(begin + (use-modules (gnu services herd)) + (wait-for-service 'jami-dbus-session #:timeout 40)) + marionette) + (wait-for-unix-socket "/var/run/jami/bus" + marionette))) + (test-assert "service is running" (marionette-eval '(begin (use-modules (gnu build jami-service) (gnu services herd)) - (wait-for-service 'jami) + (wait-for-service 'jami #:timeout 40) (jami-service-available?)) marionette)) @@ -217,10 +226,10 @@ jami account used as part of the jami configuration are left *unspecified*." (rnrs base) ) ;; Start the service. (start-service 'jami) - (with-retries 20 1 (jami-service-available?)) + (with-retries 40 1 (jami-service-available?)) ;; Restart the service. (restart-service 'jami) - (with-retries 20 1 (jami-service-available?))) + (with-retries 40 1 (jami-service-available?))) marionette)) (unless #$provisioning? (test-skip 1)) @@ -231,7 +240,7 @@ jami account used as part of the jami configuration are left *unspecified*." (gnu services herd) (rnrs base)) ;; Accounts take some time to appear after being added. - (with-retries 20 1 + (with-retries 40 1 (with-shepherd-action 'jami ('list-accounts) results (let ((account (assoc-ref (car results) #$username))) (assert (string=? #$username |