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

Adding tests for <LISP ... LISP>

db4
James Cash 2008-09-08 23:37:55 -04:00
parent b24a7ee3c4
commit c25abc5d00
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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