From 1faba13945c4b547f81a0ba1c4f085a79db3490a Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Mon, 8 Sep 2008 23:28:16 -0400
Subject: [PATCH] Adding more tests to extra/lisp

---
 extra/lisp/lisp-tests.factor | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 6c6396255a..20f6420056 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -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