Adding tests to lists

diff --git a/extra/lists/lists-tests.factor b/extra/lists/lists-tests.factor
index 1f86379faba2bdeef6f1077cac0a25bad719125d..cdc51b76e8378a63e4d0ea1c3a91bda65aaaf6f0 100644 (file)
--- 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