diff options
| author | Douglas Katzman <dougk@google.com> | 2022-07-17 20:51:05 -0400 |
|---|---|---|
| committer | Douglas Katzman <dougk@google.com> | 2022-07-17 20:51:05 -0400 |
| commit | 039cfeb470c2036e88afb445d09d4eea82992a0b (patch) | |
| tree | ae0adc25a6f42d0b3d80fdf4d52f7bb26d039550 /tests/test-funs.lisp | |
| parent | 453db9bf8bea6ad0fe8b5d03a16663ae115e01ae (diff) | |
Run most shell tests for #+win32
Diffstat (limited to 'tests/test-funs.lisp')
| -rw-r--r-- | tests/test-funs.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/test-funs.lisp b/tests/test-funs.lisp index 699ced112..4e802b6b4 100644 --- a/tests/test-funs.lisp +++ b/tests/test-funs.lisp @@ -83,7 +83,8 @@ (progn (test-util::setenv "TEST_SBCL_EVALUATOR_MODE" (string-downcase *test-evaluator-mode*)) - (let ((process (sb-ext:run-program (or #+sunos (posix-getenv "SHELL") + ;; Why would it ever be wrong to use (posix-getenv "SHELL") ??? + (let ((process (sb-ext:run-program (or #+(or sunos win32) (posix-getenv "SHELL") "/bin/sh") (list (native-namestring file)) :output *error-output*))) |