Mercurial > hg > xemacs-beta
changeset 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 | 91b3d00e717f |
| children | a98ca4640147 |
| files | tests/ChangeLog tests/automated/test-harness.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/tests/ChangeLog Wed Jan 13 04:07:42 2010 -0600 +++ b/tests/ChangeLog Wed Jan 13 04:25:15 2010 -0600 @@ -1,3 +1,9 @@ +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. + 2010-01-11 Ben Wing <ben@xemacs.org> * automated/mule-tests.el (featurep):
--- 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) )))