diff options
| -rw-r--r-- | gnu/services/base.scm | 4 | ||||
| -rw-r--r-- | gnu/tests/base.scm | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 015d873308..f709ca5519 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1294,8 +1294,8 @@ the tty to run, among other things." (lambda args ;; There's a race with the SIGCHLD handler, which could ;; call 'waitpid' before 'close-pipe' above does. If we - ;; get ECHILD, that means we lost the race, but that's - ;; fine. + ;; get ECHILD, that means we lost the race; in that case, we + ;; cannot tell what the exit code was (FIXME). (or (= ECHILD (system-error-errno args)) (apply throw args))))) (line diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index cf942fe5e1..247f237622 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -382,6 +382,9 @@ info --version") result) marionette)) + ;; FIXME: The 'invalidate' action can't reliably obtain the exit + ;; code of 'nscd' so skip this test. + (test-skip 1) (test-equal "nscd invalidate action, wrong table" '(#f) ;one value, #f (marionette-eval '(with-shepherd-action 'nscd ('invalidate "xyz") |