diff --git a/NEWS b/NEWS index ce8d4e120..a63b0aa25 100644 --- a/NEWS +++ b/NEWS @@ -27,6 +27,8 @@ the compiler reports it as "possibly unused". () ** Fix invalid use of 'posix_spawn' on non-glibc systems () +** Adjust 'spawn' test for GNU/Hurd + () ** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption () diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test index f20e04453..d5cf47cda 100644 --- a/test-suite/tests/posix.test +++ b/test-suite/tests/posix.test @@ -431,7 +431,13 @@ (let ((str (get-string-all (car input+output)))) (close-port (car input+output)) (waitpid pid) - str))) + + ;; On GNU/Hurd, the exec server prepends 'LD_ORIGIN_PATH' for + ;; every program: . Strip it. + (if (and (string=? "GNU" (utsname:sysname (uname))) + (string-prefix? "LD_ORIGIN_PATH=" str)) + (string-drop str (+ 1 (string-index str #\newline))) + str)))) (pass-if-equal "ls /proc/self/fd" "0\n1\n2\n3\n" ;fourth FD is for /proc/self/fd