tests: elogind: Wait until 'elogind' is up.

Previously we could find ourselves typing in too early.

* gnu/tests/desktop.scm (run-elogind-test)["login on tty1"]: Wait for
'elogind in to 'term-tty1.
["screendump"]: New test.

1 files changed, 10 insertions, 2 deletions

diff --git a/gnu/tests/desktop.scm b/gnu/tests/desktop.scm
index 95b33da25e..137260ea93 100644
--- a/gnu/tests/desktop.scm
+++ b/gnu/tests/desktop.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2021, 2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2021 muradm <mail@muradm.net>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -62,7 +62,8 @@
               (marionette-eval
                '(begin
                   (use-modules (gnu services herd))
-                  (start-service 'term-tty1))
+                  (start-service 'term-tty1)
+                  (start-service 'elogind))
                marionette)
               (marionette-control "sendkey ctrl-alt-f1" marionette)
 
@@ -86,6 +87,13 @@
                       (guest-file "/root/seats")
                       (guest-file "/root/users")))))
 
+          (test-assert "screendump"
+            (begin
+              (let ((capture (string-append #$output "/tty1.ppm")))
+                (marionette-control
+                 (string-append "screendump " capture) marionette)
+                (file-exists? capture))))
+
           (test-end))))
 
   (gexp->derivation "elogind" test))