blob: f97acbaebc1f67845d6aa2f76bdae46f22f3bf4e (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
(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)
(test-module list)
(test-module type)
(test-module char)
(test-module bitwise)
(test-module vector)
(test-module dict)
(test-module io)
(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)
(test-module list)
(test-module type)
(test-module char)
(test-module bitwise)
(test-module vector)
(test-module dict)
(test-module io)
(exit)
|
