Adding tests to lists

db4
James Cash 2008-06-05 14:32:03 -04:00
parent 9a0027126d
commit 6631807393
1 changed files with 4 additions and 0 deletions

View File

@ -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