From 2cc881ac13522566a27d996afd1fb88df363f75e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 22 Dec 2023 00:27:19 +0100 Subject: 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(-) (limited to 'gnu/tests') 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 -- cgit v1.2.3