Mercurial > hg > xemacs-beta
diff tests/automated/test-harness.el @ 4845:a3c673c0720b
show description properly in Assert-failure message
-------------------- ChangeLog entries follow: --------------------
tests/ChangeLog addition:
2010-01-13 Ben Wing <ben@xemacs.org>
* automated/test-harness.el (test-harness-from-buffer):
Need to quote the assertion expression, but not the description
expression.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Wed, 13 Jan 2010 04:25:15 -0600 |
| parents | 294a86d29f99 |
| children | 189fb67ca31a |
line wrap: on
line diff
--- a/tests/automated/test-harness.el Wed Jan 13 04:07:42 2010 -0600 +++ b/tests/automated/test-harness.el Wed Jan 13 04:25:15 2010 -0600 @@ -275,18 +275,18 @@ `(condition-case error-info (progn (assert ,assertion) - (Print-Pass "%S" (quote ,(or description assertion))) + (Print-Pass "%S" ,(or description `(quote ,assertion))) (incf passes)) (cl-assertion-failed (Print-Failure (if ,failing-case "Assertion failed: %S; failing case = %S" "Assertion failed: %S") - (quote ,(or description assertion)) ,failing-case) + ,(or description `(quote ,assertion)) ,failing-case) (incf assertion-failures)) (t (Print-Failure (if ,failing-case "%S ==> error: %S; failing case = %S" "%S ==> error: %S") - (quote ,(or description assertion)) + ,(or description `(quote ,assertion)) error-info ,failing-case) (incf other-failures) )))