me/guix
Archived
1
0
Fork 0
Code Activity

tests: install: Adjust the timeouts on two failing tests.

Browse source 
The 'login on tty1' and 'getlogin on tty1' tests were failing on a machine
equipped with slower hard drives.

* gnu/tests/base.scm (run-basic-test)
["login on tty1", "getlogin on tty1"]: Bump timeout from 10 to 30 s.
This commit is contained in:
Maxim Cournoyer 2022-03-11 16:29:50 -05:00
parent 55a680a646
commit 947b8f99d4
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/tests/base.scm
View file

@ -346,7 +346,8 @@ info --version")
;; It can take a while before the shell commands are executed. ;; It can take a while before the shell commands are executed.
(marionette-eval '(use-modules (rnrs io ports)) marionette) (marionette-eval '(use-modules (rnrs io ports)) marionette)
(wait-for-file "/root/logged-in" marionette (wait-for-file "/root/logged-in" marionette
#:read 'get-string-all))) #:read 'get-string-all
#:timeout 30)))
(test-equal "getlogin on tty1" (test-equal "getlogin on tty1"
"\"root\"" "\"root\""
@ -360,7 +361,8 @@ info --version")
;; It can take a while before the shell commands are executed. ;; It can take a while before the shell commands are executed.
(marionette-eval '(use-modules (rnrs io ports)) marionette) (marionette-eval '(use-modules (rnrs io ports)) marionette)
(wait-for-file "/root/login-id" marionette (wait-for-file "/root/login-id" marionette
#:read 'get-string-all))) #:read 'get-string-all
#:timeout 30)))
;; There should be one utmpx entry for the user logged in on tty1. ;; There should be one utmpx entry for the user logged in on tty1.
(test-equal "utmpx entry" (test-equal "utmpx entry"