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 414fc83c2f6bfe28d584fc902c1b65b0f0207196..0259e45e605cdb02e160d9905da6e2b579c7a4a3 100644 (file)
--- a/tests/qtest.lisp
+++ b/tests/qtest.lisp
@@ -46,8 +46,8 @@
     (format t "~&Running test ~A" test)
     (funcall test)))
 
-(defmacro assert-equal (actual expected &key (test 'equal))
-  `(unless (,test ,actual ,expected)
+(defmacro assert-equal (actual expected &key (test '#'equal))
+  `(unless (funcall ,test ,actual ,expected)
      (warn "The value of ~S (~S) is not equal to the expected value ~S"
            ',actual ,actual ,expected)))