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 | |
| parent | 873864974127ec4f123c7db0560235e806c3faab (diff) | |
| download | nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.gz nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.bz2 nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.zip | |
Add more tests
Diffstat (limited to 'res')
| -rw-r--r-- | res/builtins.lisp | 10 | ||||
| -rw-r--r-- | res/stdtest.lisp | 6 |
2 files changed, 16 insertions, 0 deletions
diff --git a/res/builtins.lisp b/res/builtins.lisp index e355c2f..1564e62 100644 --- a/res/builtins.lisp +++ b/res/builtins.lisp @@ -20,3 +20,13 @@ (def false :false) (export true false) +(comment "boolean operations. all of those are strict") +(defun | (l r) (if l true r)) +(defun & (l r) (if l r false)) +(defun not (v) (if v false true)) +(defun ^ (l r) (if l (not r) r)) +(export | & not ^) + +(comment "comparisons") +(defun gt (l r) (lt r l)) +(export gt) 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) |