From 2cc881ac13522566a27d996afd1fb88df363f75e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 22 Dec 2023 00:27:19 +0100
Subject: [PATCH] tests: jami: Double timeouts.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/tests/telephony.scm (run-jami-test): Pass #:timeout to
‘wait-for-service’.  Double number passed to ‘with-retries’.

Change-Id: Ib3c81a770c2d52b2eb40e4f28abc8e33f5c71fc8
---
 gnu/tests/telephony.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/tests/telephony.scm b/gnu/tests/telephony.scm
index f159e970f7..f7d9c73767 100644
--- a/gnu/tests/telephony.scm
+++ b/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