From 66318073931c5cbb6ccadbe53c55ba456d979dd3 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Thu, 5 Jun 2008 14:32:03 -0400
Subject: [PATCH] Adding tests to lists

---
 extra/lists/lists-tests.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/lists/lists-tests.factor b/extra/lists/lists-tests.factor
index 1f86379fab..cdc51b76e8 100644
--- a/extra/lists/lists-tests.factor
+++ b/extra/lists/lists-tests.factor
@@ -57,6 +57,10 @@ IN: lists.tests
     { 1 2 3 4 5 } seq>list lreverse list>seq
 ] unit-test
     
+{ 5 } [
+    { 1 2 3 4 5 } seq>list llength
+] unit-test
+    
 { { 3 4 { 5 6 { 7 } } } } [
   { 1 2 { 3 4 { 5 } } } seq>cons [ atom? ] [ 2 + ] traverse cons>seq
 ] unit-test
\ No newline at end of file