From 150367c84da8766dc0358ff4878b9e17dbea6a40 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 14 May 2023 22:44:56 +0200 Subject: 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. --- gnu/tests/desktop.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'gnu/tests') 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 +;;; Copyright © 2017, 2021, 2023 Ludovic Courtès ;;; Copyright © 2021 muradm ;;; ;;; 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)) -- cgit v1.2.3