diff options
| author | nea <nea@nea.moe> | 2023-08-10 18:30:49 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-10 18:30:49 +0200 |
| commit | 912c9918d9a5afbfb023b650bed6e2754f030d5e (patch) | |
| tree | f73ad72e3fa2389458ef927f1bec4fb9805c813a /res/stdtest.lisp | |
| parent | 873864974127ec4f123c7db0560235e806c3faab (diff) | |
| download | nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.gz nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.bz2 nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.zip | |
Add more tests
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) |