X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=8cb583f67656bda3ccd317d03711769030b60b07;hb=0a15b6bbf9d5d3a64b5ac08bb96b6e5ec221d2ae;hp=d2942b1d9b23263d4834c8a8b11e4e69b6034d67;hpb=6e4a6b4ccbc0608f29aad507ee20a3de1356b75a;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index d2942b1..8cb583f 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -188,6 +188,7 @@
   ;; What? No SB-POSIX:EXECV?
   `(let ((process (sb-ext:run-program "/bin/sh"
                                       (list (native-namestring ,file))
+                                      :environment (test-util::test-env)
                                       :output *error-output*)))
      (sb-ext:quit :unix-status (process-exit-code process))))