diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-03-11 16:29:50 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-03-19 11:08:30 -0400 |
| commit | 947b8f99d445b0e388c9a90ffd17c8ce0f8bcfd1 (patch) | |
| tree | c291f316114b9d7a404dc4c973e5eb02c2626f4a /gnu/tests | |
| parent | 55a680a6469369ac89cef958dac72080aaa4f9ad (diff) | |
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.
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/base.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 38d4317e526..cfaa736aecc 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm | |||
| @@ -346,7 +346,8 @@ info --version") | |||
| 346 | ;; It can take a while before the shell commands are executed. | 346 | ;; It can take a while before the shell commands are executed. |
| 347 | (marionette-eval '(use-modules (rnrs io ports)) marionette) | 347 | (marionette-eval '(use-modules (rnrs io ports)) marionette) |
| 348 | (wait-for-file "/root/logged-in" marionette | 348 | (wait-for-file "/root/logged-in" marionette |
| 349 | #:read 'get-string-all))) | 349 | #:read 'get-string-all |
| 350 | #:timeout 30))) | ||
| 350 | 351 | ||
| 351 | (test-equal "getlogin on tty1" | 352 | (test-equal "getlogin on tty1" |
| 352 | "\"root\"" | 353 | "\"root\"" |
| @@ -360,7 +361,8 @@ info --version") | |||
| 360 | ;; It can take a while before the shell commands are executed. | 361 | ;; It can take a while before the shell commands are executed. |
| 361 | (marionette-eval '(use-modules (rnrs io ports)) marionette) | 362 | (marionette-eval '(use-modules (rnrs io ports)) marionette) |
| 362 | (wait-for-file "/root/login-id" marionette | 363 | (wait-for-file "/root/login-id" marionette |
| 363 | #:read 'get-string-all))) | 364 | #:read 'get-string-all |
| 365 | #:timeout 30))) | ||
| 364 | 366 | ||
| 365 | ;; There should be one utmpx entry for the user logged in on tty1. | 367 | ;; There should be one utmpx entry for the user logged in on tty1. |
| 366 | (test-equal "utmpx entry" | 368 | (test-equal "utmpx entry" |
