[no subject]

[Ludovic Courtès]

branch: master
commit 60ea28586542557425498197567a3ddb7b4e3c9d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jul 9 18:54:10 2023 +0200

    tests: Adjust timeout test.
    
    * tests/remote.scm (dummy-drv): Print something in build log before and
    after 'sleep' call.
    (drv-with-timeout): Change argument to 10.
---
 tests/remote.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/remote.scm b/tests/remote.scm
index 94d9ccd..118b10c 100644
--- a/tests/remote.scm
+++ b/tests/remote.scm
@@ -90,8 +90,11 @@
        ;; the tests.
        (let ((exp #~(let ((nonce (list #$(car (gettimeofday))
                                        #$(getpid))))
+                      (setvbuf (current-output-port) 'line)
+                      (display "Build process taking a nap...\n")
                       (when #$sleep
                         (sleep #$sleep))
+                      (display "Waking up!\n")
                       (mkdir #$output))))
          (gexp->derivation "foo" exp))))))
 
@@ -99,7 +102,7 @@
   (delay (dummy-drv)))
 
 (define drv-with-timeout
-  (delay (dummy-drv 2)))
+  (delay (dummy-drv 10)))
 
 (define* (make-build #:key
                      drv