08/12: tests: jami: Double timeouts.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 2cc881ac13522566a27d996afd1fb88df363f75e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Dec 22 00:27:19 2023 +0100

    tests: jami: Double timeouts.
    
    * 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