01/04: tests: install: Adjust the timeouts on two failing tests.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 947b8f99d445b0e388c9a90ffd17c8ce0f8bcfd1
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri Mar 11 16:29:50 2022 -0500

    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.
---
 gnu/tests/base.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 38d4317e52..cfaa736aec 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -346,7 +346,8 @@ info --version")
               ;; It can take a while before the shell commands are executed.
               (marionette-eval '(use-modules (rnrs io ports)) marionette)
               (wait-for-file "/root/logged-in" marionette
-                             #:read 'get-string-all)))
+                             #:read 'get-string-all
+                             #:timeout 30)))
 
           (test-equal "getlogin on tty1"
             "\"root\""
@@ -360,7 +361,8 @@ info --version")
               ;; It can take a while before the shell commands are executed.
               (marionette-eval '(use-modules (rnrs io ports)) 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.
           (test-equal "utmpx entry"