Merge branch 'master' of git://common-lisp.net/projects/qitab/cl-protobufs

[cl-protobufs.git] / tests / qtest.lisp

diff --git a/tests/qtest.lisp b/tests/qtest.lisp
index 7b234495a4719e243379f0711ef5fe4d8b8c0568..0259e45e605cdb02e160d9905da6e2b579c7a4a3 100644 (file)
--- a/tests/qtest.lisp
+++ b/tests/qtest.lisp
@@ -48,18 +48,18 @@
 
 (defmacro assert-equal (actual expected &key (test '#'equal))
   `(unless (funcall ,test ,actual ,expected)
-     (warn "The value ~S is not equal to the expected value ~S"
-           ',actual ',expected)))
+     (warn "The value of ~S (~S) is not equal to the expected value ~S"
+           ',actual ,actual ,expected)))
 
 (defmacro assert-true (form)
   `(unless ,form
-     (warn "The value ~S does not evaluate to 'true'"
-           ',form)))
+     (warn "The value of ~S (~S) does not evaluate to 'true'"
+           ',form ,form)))
 
 (defmacro assert-false (form)
   `(when ,form
-     (warn "The value ~S does not evaluate to 'false'"
-           ',form)))
+     (warn "The value ~S (~S) does not evaluate to 'false'"
+           ',form ,form)))
 
 (defmacro assert-error (condition &body body)
   "Checks if BODY signals a condition of class CONDITION. If it does not, a failure is