summaryrefslogtreecommitdiff
path: root/test/res/test.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'test/res/test.lisp')
-rw-r--r--test/res/test.lisp10
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))))