add std lisp tests

1 files changed, 17 insertions, 0 deletions

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
new file mode 100644
index 0000000..53b0f59
--- /dev/null
+++ b/src/lisp/test.lisp
@@ -0,0 +1,17 @@
+(assert-eq
+  (range 0 10)
+  '(0 1 2 3 4 5 6 7 8 9))
+
+(assert-eq
+  (for (i (range 0 10)) (+ i 1))
+  (map (lambda (x) (+ x 1)) (range 0 10)))
+
+(assert (and #t #t))
+(assert (or #f #t))
+(assert (not #f))
+
+(assert-eq
+  (for (i '(1 2 3)) (for (j '(1 2 3)) (+ i j)))
+  (list '(2 3 4) '(3 4 5) '(4 5 6)))
+
+