system: tests: Use 'start-service' to wait for service.

* gnu/tests/base.scm (%test-basic-os): Use 'start-service' instead of a
busy loop to wait for 'term-tty1'.
This commit is contained in:
Ludovic Courtès 2016-05-08 23:49:02 +02:00
parent b8785cb944
commit 5a55564217
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -128,17 +128,13 @@ (define marionette
"root\n"
(begin
(marionette-control "sendkey ctrl-alt-f1" marionette)
;; Wait for the 'term-tty1' service to be running
;; Wait for the 'term-tty1' service to be running (using
;; 'start-service' is the simplest and most reliable way to do
;; that.)
(marionette-eval
'(begin
(use-modules (gnu services herd))
(let loop ((i 0))
(when (> i 10)
(error "terminal service not running" (current-services)))
(unless (memq 'term-tty1 (current-services))
(sleep 1)
(loop (+ i 1)))))
(start-service 'term-tty1))
marionette)
;; Now we can type.