author | Alan Dipert
<alan@dipert.org> 2021-07-27 03:03:42 UTC |
committer | Alan Dipert
<alan@dipert.org> 2021-07-27 03:03:42 UTC |
parent | 7e472a43cbd8d02ee0f0f445089f799ad00405c8 |
test.lisp | +3 | -0 |
diff --git a/test.lisp b/test.lisp index 198138c..2f316cd 100644 --- a/test.lisp +++ b/test.lisp @@ -42,6 +42,9 @@ (defun assert= (x y &optional (label *label*)) (\. *is* (|strictEqual| x y label))) +(defun assert!= (x y &optional (label *label*)) + (\. *is* (|notStrictEqual| x y label))) + (defmacro assert-throws (&body body) `(\. *is* (|throws| (lambda () ,@body) *label*)))