add symbol functions

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)