me
/
guix
Archived
1
0
Fork 0
Code

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
Ludovic Courtès 2023-12-22 00:27:19 +01:00
parent 204f08c43e
commit 2cc881ac13
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/tests/telephony.scm
View File

@ -188,7 +188,7 @@ jami account used as part of the jami configuration are left *unspecified*."
(and (marionette-eval (and (marionette-eval
'(begin '(begin
(use-modules (gnu services herd)) (use-modules (gnu services herd))
(wait-for-service 'jami-dbus-session)) (wait-for-service 'jami-dbus-session #:timeout 40))
marionette) marionette)
(wait-for-unix-socket "/var/run/jami/bus" (wait-for-unix-socket "/var/run/jami/bus"
marionette))) marionette)))
@ -199,7 +199,7 @@ jami account used as part of the jami configuration are left *unspecified*."
(use-modules (gnu build jami-service) (use-modules (gnu build jami-service)
(gnu services herd)) (gnu services herd))
(wait-for-service 'jami) (wait-for-service 'jami #:timeout 40)
(jami-service-available?)) (jami-service-available?))
marionette)) marionette))
@ -226,10 +226,10 @@ jami account used as part of the jami configuration are left *unspecified*."
(rnrs base) ) (rnrs base) )
;; Start the service. ;; Start the service.
(start-service 'jami) (start-service 'jami)
(with-retries 20 1 (jami-service-available?)) (with-retries 40 1 (jami-service-available?))
;; Restart the service. ;; Restart the service.
(restart-service 'jami) (restart-service 'jami)
(with-retries 20 1 (jami-service-available?))) (with-retries 40 1 (jami-service-available?)))
marionette)) marionette))
(unless #$provisioning? (test-skip 1)) (unless #$provisioning? (test-skip 1))
@ -240,7 +240,7 @@ jami account used as part of the jami configuration are left *unspecified*."
(gnu services herd) (gnu services herd)
(rnrs base)) (rnrs base))
;; Accounts take some time to appear after being added. ;; Accounts take some time to appear after being added.
(with-retries 20 1 (with-retries 40 1
(with-shepherd-action 'jami ('list-accounts) results (with-shepherd-action 'jami ('list-accounts) results
(let ((account (assoc-ref (car results) #$username))) (let ((account (assoc-ref (car results) #$username)))
(assert (string=? #$username (assert (string=? #$username