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

Fixing definitions for lisp tests

db4
James Cash 2008-06-18 15:08:42 -04:00
parent 43a9413da5
commit 6d4a366787
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,11 +8,13 @@ IN: lisp.test
[ [
init-env init-env
[ f ] "#f" lisp-define f "#f" lisp-define
[ t ] "#t" lisp-define t "#t" lisp-define
"+" "math" "+" define-primitive "+" "math" "+" define-primitive
"-" "math" "-" define-primitive "-" "math" "-" define-primitive
"<" "math" "<" define-primitive
">" "math" ">" define-primitive
"cons" "lists" "cons" define-primitive "cons" "lists" "cons" define-primitive
"car" "lists" "car" define-primitive "car" "lists" "car" define-primitive
@ -49,6 +51,10 @@ IN: lisp.test
"(cond (#f \"a\") (#t \"b\"))" lisp-eval "(cond (#f \"a\") (#t \"b\"))" lisp-eval
] unit-test ] unit-test
{ "b" } [
"(cond ((< 1 2) \"b\") (#t \"a\"))" lisp-eval
] unit-test
{ 5 } [ { 5 } [
"(begin (+ 1 4))" lisp-eval "(begin (+ 1 4))" lisp-eval
] unit-test ] unit-test