diff options
Diffstat (limited to 'res/stdtest.lisp')
| -rw-r--r-- | res/stdtest.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/res/stdtest.lisp b/res/stdtest.lisp new file mode 100644 index 0000000..8de5164 --- /dev/null +++ b/res/stdtest.lisp @@ -0,0 +1,16 @@ + +(import :ntest) + + +(comment "Re-export ntest.test as test.test") +(def test.test ntest.test) +(export test.test) + +(comment "Fail a test with a certain message. Returns a closure; needs to be invoked as ((test.fail \"Fail Message\"))") +(defun test.fail (message) (ntest.fail message)) +(export test.fail) + +(comment "Assert true or fail with message. Returns a closure") +(defun test.assert (cond message) (if cond noop (ntest.fail message))) +(export test.assert) + |