diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-23 14:53:44 +0200 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-23 14:53:44 +0200 |
| commit | 1828958db52d0019a7f3d763b07e64f78afa2cbf (patch) | |
| tree | 8bdff27c5b3dc088d923e91a14a38f6a6b9fa661 /gnu/tests/base.scm | |
| parent | 7e463dd16b7e273011f0beafa57a89fa2d525f8b (diff) | |
| parent | 23744435613aa040beacc61a0825cc72280da80a (diff) | |
Merge branch 'wip-lisp' into staging
Diffstat (limited to 'gnu/tests/base.scm')
| -rw-r--r-- | gnu/tests/base.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 086d2a133f..482310cc12 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -55,7 +55,10 @@ (define* (run-basic-test os command #:optional (name "basic") - #:key initialization root-password) + #:key + initialization + root-password + desktop?) "Return a derivation called NAME that tests basic features of the OS started using COMMAND, a gexp that evaluates to a list of strings. Compare some properties of running system to what's declared in OS, an <operating-system>. @@ -300,6 +303,12 @@ info --version") (test-equal "login on tty1" "root\n" (begin + ;; XXX: On desktop, GDM3 will switch to TTY7. If this happens + ;; after we switched to TTY1, we won't be able to login. Make + ;; sure to wait long enough before switching to TTY1. + (when #$desktop? + (sleep 30)) + (marionette-control "sendkey ctrl-alt-f1" marionette) ;; Wait for the 'term-tty1' service to be running (using ;; 'start-service' is the simplest and most reliable way to do |