From 65f9fd92315ad53f7ffa44bfd46c18d555e6678e Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Tue, 3 Jun 2008 20:11:45 -0400
Subject: [PATCH] Adding more tests for lists

---
 extra/lists/lists-tests.factor | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/extra/lists/lists-tests.factor b/extra/lists/lists-tests.factor
index 718b4bff4e..8e78872a52 100644
--- a/extra/lists/lists-tests.factor
+++ b/extra/lists/lists-tests.factor
@@ -9,13 +9,34 @@ IN: lists.tests
         T{ cons f 2 
             T{ cons f 3
                 T{ cons f 4
-                T{ cons f f f } } } } } [ 2 + ] lmap
+                nil } } } } [ 2 + ] lmap
 ] unit-test
 
 { 10 } [
- T{ cons f 1       
+    T{ cons f 1       
         T{ cons f 2 
             T{ cons f 3
                 T{ cons f 4
-                T{ cons f f f } } } } } 0 [ + ] lreduce
+                nil } } } } 0 [ + ] lreduce
+] unit-test
+    
+T{
+    cons
+    f
+    1
+    T{
+        cons
+        f
+        2
+        T{
+            cons
+            f
+            T{ cons f 3 T{ cons f 4 T{ cons f 5 nil } } }
+            T{ cons f f f }
+        } } } [
+    { 1 2 { 3 4 { 5 } } } seq>cons
+] unit-test
+    
+{ { 1 2 { 3 4 { 5 } } } } [
+  { 1 2 { 3 4 { 5 } } } seq>cons cons>seq  
 ] unit-test
\ No newline at end of file