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

Refactoring lisp tests

db4
James Cash 2008-07-10 00:28:44 -04:00
parent 2e8d58d131
commit 4013d5059a
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,8 +5,8 @@ quotations ;
IN: lisp.test IN: lisp.test
[ : define-lisp-builtins ( -- )
init-env init-env
f "#f" lisp-define f "#f" lisp-define
t "#t" lisp-define t "#t" lisp-define
@ -26,6 +26,10 @@ IN: lisp.test
"define" "lisp" "defun" define-primitive "define" "lisp" "defun" define-primitive
"(lambda (&rest xs) xs)" lisp-string>factor "list" lisp-define "(lambda (&rest xs) xs)" lisp-string>factor "list" lisp-define
;
[
define-lisp-builtins
{ 5 } [ { 5 } [
"(+ 2 3)" lisp-eval "(+ 2 3)" lisp-eval
@ -75,8 +79,12 @@ IN: lisp.test
"(begin (+ 1 4))" lisp-eval "(begin (+ 1 4))" lisp-eval
] unit-test ] unit-test
{ 5 } [
"(begin (+ 5 6) (+ 1 4))" lisp-eval
] unit-test
{ T{ lisp-symbol f "if" } } [ { T{ lisp-symbol f "if" } } [
"(defmacro if (pred tr fl) (list (quote cond) (list pred tr) (list (quote #t) fl)))" lisp-eval "(defmacro if (pred tr fl) (list (list (quote cond) (list pred tr) (list (quote #t) fl))))" lisp-eval
] unit-test ] unit-test
{ t } [ { t } [