carbon2-commit: show description properly in Assert-failure message

[Ben Wing]

changeset:   4893:a3c673c0720b
user:        Ben Wing <ben at xemacs.org>
date:        Wed Jan 13 04:25:15 2010 -0600
files:       tests/ChangeLog tests/automated/test-harness.el
description:
show description properly in Assert-failure message

-------------------- ChangeLog entries follow: --------------------

tests/ChangeLog addition:

2010-01-13  Ben Wing  <ben at xemacs.org>

	* automated/test-harness.el (test-harness-from-buffer):
	Need to quote the assertion expression, but not the description
	expression.


diff -r 91b3d00e717f -r a3c673c0720b tests/ChangeLog
--- 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 at 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 at xemacs.org>
 
 	* automated/mule-tests.el (featurep):
diff -r 91b3d00e717f -r a3c673c0720b tests/automated/test-harness.el
--- 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)
 	     )))