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

Adding more tests to extra/lisp

db4
James Cash 2008-09-08 23:28:16 -04:00
parent be4e613861
commit 1faba13945
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,4 +64,24 @@ IN: lisp.test
"((lambda (x) (if x (+ 1 2) (- 3 5))) #t)" lisp-eval
] unit-test
{ { 5 4 3 } } [
"((lambda (x &rest xs) (cons x xs)) 5 4 3)" lisp-eval cons>seq
] unit-test
{ { 5 } } [
"((lambda (x &rest xs) (cons x xs)) 5)" lisp-eval cons>seq
] unit-test
{ { 1 2 3 4 } } [
"((lambda (&rest xs) xs) 1 2 3 4)" lisp-eval cons>seq
] unit-test
! { 10 } [
! <LISP (begin (+ 1 2) (+ 9 1)) LISP>
! ] unit-test
! { 4 } [
! <LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
! ] unit-test
] with-interactive-vocabs