From: Tobias R. <tri...@us...> - 2010-04-06 10:07:31
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv6470/tests Modified Files: test-util.lisp Log Message: 1.0.37.40: More informative UNEXPECTED-FAILURE reporting... ..by making it report the actual error message as well. Index: test-util.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/test-util.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- test-util.lisp 16 Feb 2009 21:32:58 -0000 1.4 +++ test-util.lisp 6 Apr 2010 10:07:22 -0000 1.5 @@ -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* |