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

Reinstating unit tests for lisp

db4
James Cash 2008-06-18 12:13:19 -04:00
parent cead05c5d2
commit 1824e1c413
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,9 +41,9 @@ IN: lisp.test
"((lambda (x y) (+ x y)) 1 2)" lisp-eval "((lambda (x y) (+ x y)) 1 2)" lisp-eval
] unit-test ] unit-test
! { 42 } [ { 42 } [
! "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval
! ] unit-test ] unit-test
{ "b" } [ { "b" } [
"(cond (#f \"a\") (#t \"b\"))" lisp-eval "(cond (#f \"a\") (#t \"b\"))" lisp-eval
@ -69,12 +69,12 @@ IN: lisp.test
T{ lisp-symbol f "if" } lisp-macro? T{ lisp-symbol f "if" } lisp-macro?
] unit-test ] unit-test
! { 1 } [ { 1 } [
! "(if #t 1 2)" lisp-eval "(if #t 1 2)" lisp-eval
! ] unit-test ] unit-test
! { 3 } [ { 3 } [
! "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval
! ] unit-test ] unit-test
] with-interactive-vocabs ] with-interactive-vocabs