From 1da6914589e06621a78ce0ed13f707cc767c2a3d Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Fri, 26 Jun 2020 14:44:12 +0200 Subject: tests: install: Fix marionette race condition. If the marionette shuts down before the script return is received, then status will be . * gnu/tests/install.scm (run-install): Allow status to be the object. --- gnu/tests/install.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index db355b85ca..3323f8c9d8 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -301,7 +301,8 @@ packages defined in installation-os." ;; Run SCRIPT. It typically invokes 'reboot' as a last step and ;; thus normally gets killed with SIGTERM by PID 1. (let ((status (marionette-eval '(system #$script) marionette))) - (exit (or (equal? (status:term-sig status) SIGTERM) + (exit (or (eof-object? status) + (equal? (status:term-sig status) SIGTERM) (equal? (status:exit-val status) 0))))) (when #$(->bool gui-test) -- cgit 1.4.1