guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'tests/modules.scm')

0 files changed, 0 insertions, 0 deletions

tem-test-runner #$output)) (test-begin #$name) ;; service for gdm is called xorg-server (test-assert "service is running" (marionette-eval '(begin (use-modules (gnu services herd)) (start-service 'xorg-server)) marionette)) (test-group "gdm ready" (test-assert "PID file present" (wait-for-file "/var/run/gdm/gdm.pid" marionette)) ;; Waiting for gdm.pid is not enough, tests may still sporadically ;; fail; ensure that the login screen is up. ;; XXX: GNU Ocrad works but with '--invert' only. (test-assert "login screen up" (wait-for-screen-text marionette (cut string-contains <> "Guix") #:ocr #$(file-append ocrad "/bin/ocrad") #:ocr-arguments '("--invert") #:timeout 120))) ;for slow systems (test-equal (string-append "session-type is " expected-session-type) expected-session-type (marionette-eval '(begin (use-modules (ice-9 popen) (ice-9 rdelim)) (let* ((loginctl #$(file-append elogind "/bin/loginctl")) (get-session-cmd (string-join `(,loginctl "show-user" "gdm" "--property Display" "--value"))) (session (call-with-port (open-input-pipe get-session-cmd) read-line)) (get-type-cmd (string-join `(,loginctl "show-session" ,session "--property Type" "--value"))) (type (call-with-port (open-input-pipe get-type-cmd) read-line))) type)) marionette)) (test-end))))) (gexp->derivation (string-append name "-test") test)) (define %test-gdm-x11 (system-test (name "gdm-x11") (description "Basic tests for the GDM service. (X11)") (value (run-gdm-test)))) (define %test-gdm-wayland (system-test (name "gdm-wayland") (description "Basic tests for the GDM service. (Wayland)") (value (run-gdm-test #:wayland? #t))))


context:
space:
mode: