tests: install: Adjust the timeouts on two failing tests.
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:
parent
55a680a646
commit
947b8f99d4
|
@ -346,7 +346,8 @@ (define (user-owned? file)
|
||||||
;; 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 @@ (define (user-owned? file)
|
||||||
;; 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"
|
||||||
|
|
Loading…
Reference in a new issue