~ruther/guix-local: installer: final: Dump "guix system init" command output when testing.

9392652e911b3963ef0f52f39677a6fc953f1e1e — Mathieu Othacehe 6 years ago ce16b07

installer: final: Dump "guix system init" command output when testing.

When debugging the installation tests, it can be very handy to be able to read
"guix system init" command output.

* gnu/installer/final.scm (install-system): Dump installation command output
to the console when running the installation tests.

patch browse .tar.gz .zip

1 files changed, 12 insertions(+), 1 deletions(-)

M gnu/installer/final.scm

M gnu/installer/final.scm => gnu/installer/final.scm +12 -1

@@ 205,7 205,18 @@ or #f.  Return #t on success and #f on failure."
       (lambda ()
         (start-service 'cow-store (list (%installer-target-dir))))
       (lambda ()
-        (run-command install-command #:locale locale))
+        ;; If there are any connected clients, assume that we are running
+        ;; installation tests. In that case, dump the standard and error
+        ;; outputs to syslog.
+        (if (not (null? (current-clients)))
+            (with-output-to-file "/dev/console"
+              (lambda ()
+                (with-error-to-file "/dev/console"
+                  (lambda ()
+                    (setvbuf (current-output-port) 'none)
+                    (setvbuf (current-error-port) 'none)
+                    (run-command install-command #:locale locale)))))
+            (run-command install-command #:locale locale)))
       (lambda ()
         (stop-service 'cow-store)
         ;; Remove the store overlay created at cow-store service start.