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

Adding tests for 'begin'

db4
James Cash 2008-05-19 17:09:30 -04:00
parent eddb4f4994
commit b2cbe83be8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,4 +34,12 @@ init-env
{ "b" } [ { "b" } [
"(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call "(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call
] unit-test
{ 5 } [
"(begin (+ 1 4))" lisp-string>factor call
] unit-test
{ 3 } [
"((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-string>factor call
] unit-test ] unit-test