aboutsummaryrefslogtreecommitdiff
path: root/tests/test.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test.lisp')
-rw-r--r--tests/test.lisp34
1 files changed, 18 insertions, 16 deletions
diff --git a/tests/test.lisp b/tests/test.lisp
index 9b0f888..ca8195c 100644
--- a/tests/test.lisp
+++ b/tests/test.lisp
@@ -1,19 +1,21 @@
-(defmacro test-module (name)
- `(progn
- (princ (format "[TEST] %s\n" ,name))
- (load (format "%s.lisp" ,name))
- (princ (format "[PASS] %s\n" ,name))))
+(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 "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 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)