diff options
| author | nea <nea@nea.moe> | 2023-08-10 18:01:37 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-10 18:01:37 +0200 |
| commit | 873864974127ec4f123c7db0560235e806c3faab (patch) | |
| tree | c1d39786d89dd39f7843a73c2d69e75a12894b36 /res | |
| parent | 0ab6dab185e31fcf6f3e0cf98dc8496f02448ee8 (diff) | |
| download | nealisp-873864974127ec4f123c7db0560235e806c3faab.tar.gz nealisp-873864974127ec4f123c7db0560235e806c3faab.tar.bz2 nealisp-873864974127ec4f123c7db0560235e806c3faab.zip | |
Add test junit formatter
Diffstat (limited to 'res')
| -rw-r--r-- | res/builtins.lisp | 1 | ||||
| -rw-r--r-- | res/stdtest.lisp | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/res/builtins.lisp b/res/builtins.lisp index 4348e52..e355c2f 100644 --- a/res/builtins.lisp +++ b/res/builtins.lisp @@ -1,5 +1,6 @@ (defun comment (...) ((pure nil))) (comment "comment is a noop function for documentation") +(export comment) (comment "if! a strict version of a regular if, meaning it evaluates both the falsy and the truthy case, instead of only one.") 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) + |