Adding tests to lists

2008-06-05 14:32:03 -04:00 · 2008-06-05 14:32:03 -04:00 · 6631807393
parent 9a0027126d
commit 6631807393
1 changed files with 4 additions and 0 deletions
--- 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