summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-12-22 00:27:19 +0100
committerLudovic Courtès <ludo@gnu.org>2023-12-22 00:31:41 +0100
commit2cc881ac13522566a27d996afd1fb88df363f75e (patch)
treeab51dd9c35fa32f362b86d78fbdeac69a3bad046 /gnu
parent204f08c43eda95440530a038b8d5caa18f8743ee (diff)
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
Diffstat (limited to 'gnu')
-rw-r--r--gnu/tests/telephony.scm10
1 files 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