1.0.46.43: fix sb-introspect on non-threaded builds

[sbcl.git] / tests / test-util.lisp

diff --git a/tests/test-util.lisp b/tests/test-util.lisp
index 7ef6b6b..cdc422c 100644 (file)
--- a/tests/test-util.lisp
+++ b/tests/test-util.lisp
@@ -48,7 +48,8 @@
   (incf *test-count*))
 
 (defun fail-test (type test-name condition)
-  (log-msg "~A ~S" type test-name)
+  (log-msg "~@<~A ~S ~:_due to ~S: ~4I~:_\"~A\"~:>"
+           type test-name condition condition)
   (push (list type *test-file* (or test-name *test-count*))
         *failures*)
   (when (or (and *break-on-failure*
@@ -64,3 +65,8 @@
     (let ((*invoke-debugger-hook* *invoke-debugger-hook*))
       (enable-debugger)
       (invoke-debugger condition))))
+
+(defun test-env ()
+  (cons (format nil "SBCL_MACHINE_TYPE=~A" (machine-type))
+        (cons (format nil "SBCL_SOFTWARE_TYPE=~A" (software-type))
+              (posix-environ))))