1 files changed, 5 insertions(+), 5 deletions(-)

M gnu/tests/telephony.scm

@@ 188,7 188,7 @@ jami account used as part of the jami configuration are left *unspecified*."
             (and (marionette-eval
                   '(begin
                      (use-modules (gnu services herd))
-                     (wait-for-service 'jami-dbus-session))
+                     (wait-for-service 'jami-dbus-session #:timeout 40))
                   marionette)
                  (wait-for-unix-socket "/var/run/jami/bus"
                                        marionette)))


@@ 199,7 199,7 @@ jami account used as part of the jami configuration are left *unspecified*."
                 (use-modules (gnu build jami-service)
                              (gnu services herd))
 
-                (wait-for-service 'jami)
+                (wait-for-service 'jami #:timeout 40)
                 (jami-service-available?))
              marionette))
 


@@ 226,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))


@@ 240,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