blob: a303ed352f7f710ab8638ed8de1b835493b7c29f (
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
39
|
(defmacro test-module (module)
(let ((name (symbol->string module)))
`(progn
(princ (format "[TEST] %s\n" ,name))
(load (format "tests/%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)
(test-module string)
(princ "\n\nTest with intensive GC:\n\n")
(_alwaysgc #t)
(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)
(test-module string)
(exit)
|
