diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-12-22 00:27:19 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-12-22 00:31:41 +0100 |
| commit | 2cc881ac13522566a27d996afd1fb88df363f75e (patch) | |
| tree | ab51dd9c35fa32f362b86d78fbdeac69a3bad046 /gnu | |
| parent | 204f08c43eda95440530a038b8d5caa18f8743ee (diff) | |
| download | guix-2cc881ac13522566a27d996afd1fb88df363f75e.tar.gz | |
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.scm | 10 |
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 |