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 /test/res/test.lisp | |
| parent | 873864974127ec4f123c7db0560235e806c3faab (diff) | |
| download | nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.gz nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.tar.bz2 nealisp-912c9918d9a5afbfb023b650bed6e2754f030d5e.zip | |
Add more tests
Diffstat (limited to 'test/res/test.lisp')
| -rw-r--r-- | test/res/test.lisp | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp index eea180c..79d259d 100644 --- a/test/res/test.lisp +++ b/test/res/test.lisp @@ -28,6 +28,14 @@ (test.test "Funny test" (seq (debuglog "Funny test running") ((test.assert false "False failed")) + ((test.assert-eq "funny" "unfunny")) ((test.fail "Test failed")))) - +(test.test "Test equality" (seq + ((test.assert-eq false false)) + ((test.assert-eq (not false) true)) + ((test.assert-eq (not true) false)) + ((test.assert-eq (& true true) true)) + ((test.assert-eq (& true false) false)) + ((test.assert-eq (& false true) false)) + ((test.assert-eq (& false false) false)))) |