More macro tests

db4
James Cash 2008-06-05 18:14:43 -04:00
parent b494a18b9e
commit 35e2bb8711
1 changed files with 6 additions and 2 deletions

View File

@ -7,8 +7,8 @@ IN: lisp.test
[
init-env
"#f" [ f ] lisp-define
"#t" [ t ] lisp-define
[ f ] "#f" lisp-define
[ t ] "#t" lisp-define
"+" "math" "+" define-primitive
"-" "math" "-" define-primitive
@ -35,6 +35,10 @@ IN: lisp.test
"(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval
] unit-test
{ t } [
T{ lisp-symbol f "if" } lisp-macro?
] unit-test
{ 1 } [
"(if #t 1 2)" lisp-eval
] unit-test