diff options
Diffstat (limited to 'res/stdtest.lisp')
| -rw-r--r-- | res/stdtest.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/res/stdtest.lisp b/res/stdtest.lisp index 8de5164..bf230b3 100644 --- a/res/stdtest.lisp +++ b/res/stdtest.lisp @@ -14,3 +14,9 @@ (defun test.assert (cond message) (if cond noop (ntest.fail message))) (export test.assert) +(comment "Assert that two arguments are equal. Returns a closure") +(defun test.assert-eq (actual expected) + (test.assert + (= actual expected) + (tostring "Expected" expected "got" actual))) +(export test.assert-eq) |