X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lunit.el;h=dbe1f74ec428f3bc66668cbd3a8a847b7f0ea461;hb=5155cc349be9ef07f765a5976e7b6bb495d68057;hp=99132d312be8f14be5da0d9dcb621ac7848e148e;hpb=1fe7d81d92386d6d1c34e20e4457960fb73ba7fc;p=elisp%2Fflim.git

diff --git a/lunit.el b/lunit.el
index 99132d3..dbe1f74 100644
--- a/lunit.el
+++ b/lunit.el
@@ -237,7 +237,7 @@ TESTS holds a number of instances of `lunit-test'."
 (defmacro lunit-assert (condition-expr)
   "Verify that CONDITION-EXPR returns non-nil; signal an error if not."
   (let ((condition (eval condition-expr)))
-    `(unless ,condition
+    `(when ,(not condition)
        (signal 'lunit-failure (list ',condition-expr)))))
 
 (luna-define-class lunit-test-printer (lunit-test-listener))
@@ -265,6 +265,7 @@ TESTS holds a number of instances of `lunit-test'."
     (mapatoms
      (lambda (symbol)
        (if (and (fboundp symbol)
+		(string-match "^test" (symbol-name symbol))
 		(null (get symbol 'luna-method-qualifier)))
 	   (push (lunit-make-test-case class symbol) tests)))
      (luna-class-obarray (luna-find-class class)))