steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding tests for macros now

db4
James Cash 2008-06-05 16:28:24 -04:00
parent 7061468473
commit b494a18b9e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/lisp/lisp-tests.factor
View File

@ -31,6 +31,10 @@ IN: lisp.test
"((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval
] unit-test
{ T{ lisp-symbol f "if" } } [
"(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval
] unit-test
{ 1 } [
"(if #t 1 2)" lisp-eval
] unit-test