ASSERT-TRUE now takes generalized booleans

google · May 5, 2020 · cb6dbe4 · cb6dbe4
1 parent d2bf630
commit cb6dbe4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test-framework.lisp b/test-framework.lisp
@@ -104,6 +104,8 @@
     (cons (or (form-contains-blanks-p (car form))
               (form-contains-blanks-p (cdr form))))))
 
+(defun notnot (x) (not (not x)))
+
 (defvar *koan-assert-list*)
 
 (defun internal-assert (type form code-thunk expected-thunk test)
@@ -154,7 +156,7 @@
 
 (defmacro assert-true (form)
   "Assert whether the form is true."
-  `(expand-assert :result ,form ,form t))
+  `(expand-assert :result ,form ,form t :test #'notnot))
 
 ;;; Run the tests