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

Adding more tests to extra/lisp

db4
James Cash 2008-09-14 20:24:06 -04:00
parent f82cb061f5
commit d2d3e1e4f2
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

@ -84,4 +84,12 @@ IN: lisp.test
<LISP ((lambda (x y) (if x (+ 1 y) (+ 2 y))) #t 3) LISP>
] unit-test
{ { 3 3 4 } } [
<LISP (setq foo (lambda (x y &rest z)
(cons (+ x y) z)))
(foo 1 2 3 4)
LISP> cons>seq
] unit-test
] with-interactive-vocabs