Adding more tests to extra/lisp

2008-09-14 20:24:06 -04:00 · 2008-09-14 20:24:06 -04:00 · d2d3e1e4f2
parent f82cb061f5
commit d2d3e1e4f2
1 changed files with 8 additions and 0 deletions
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@ -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