blob: 26ba7882e5b29883a9749819f678aeca873b599e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(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 tailcall-big)
(test-module control-flow)
(test-module lambda)
(test-module comment)
(test-module macro)
(test-module let-binding)
(princ "\n\nTest with intensive GC:\n\n")
(_alwaysgc #t)
(test-module math)
(test-module symbol)
(test-module eq)
(test-module arithmetic)
(test-module tailcall)
(test-module error)
(test-module logic)
(test-module control-flow)
(test-module lambda)
(test-module comment)
(test-module macro)
(test-module let-binding)
(exit)
|
