diff options
Diffstat (limited to 'tests/test.lisp')
| -rw-r--r-- | tests/test.lisp | 34 |
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) |
