blob: ca8195c6c531ec7555f6821681baeb1c79e5db0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(defmacro test-module (module)
(let ((name (symbol->string module)))
`(progn
(princ (format "[TEST] %s\n" ,name))
(load (format "%s.lisp" ,name))
(princ (format "[PASS] %s\n" ,name)))))
(test-module math)
(test-module symbol)
(test-module eq)
(test-module arithmetic)
(test-module error)
(test-module logic)
(test-module tailcall)
(test-module control-flow)
(test-module lambda)
(test-module comment)
(test-module macro)
(test-module let-binding)
(exit)
|
