steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/lists/lists-tests.factor
View File

@ -57,6 +57,10 @@ IN: lists.tests
{ 1 2 3 4 5 } seq>list lreverse list>seq { 1 2 3 4 5 } seq>list lreverse list>seq
] unit-test ] unit-test
{ 5 } [
{ 1 2 3 4 5 } seq>list llength
] unit-test
{ { 3 4 { 5 6 { 7 } } } } [ { { 3 4 { 5 6 { 7 } } } } [
{ 1 2 { 3 4 { 5 } } } seq>cons [ atom? ] [ 2 + ] traverse cons>seq { 1 2 { 3 4 { 5 } } } seq>cons [ atom? ] [ 2 + ] traverse cons>seq
] unit-test ] unit-test