aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/lisp/test.lisp17
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 @@
1(assert-eq
2 (range 0 10)
3 '(0 1 2 3 4 5 6 7 8 9))
4
5(assert-eq
6 (for (i (range 0 10)) (+ i 1))
7 (map (lambda (x) (+ x 1)) (range 0 10)))
8
9(assert (and #t #t))
10(assert (or #f #t))
11(assert (not #f))
12
13(assert-eq
14 (for (i '(1 2 3)) (for (j '(1 2 3)) (+ i j)))
15 (list '(2 3 4) '(3 4 5) '(4 5 6)))
16
17