Adding more tests for lists

db4
James Cash 2008-06-03 20:11:45 -04:00
parent b3808a08d5
commit 65f9fd9231
1 changed files with 24 additions and 3 deletions

View File

@ -9,13 +9,34 @@ IN: lists.tests
T{ cons f 2
T{ cons f 3
T{ cons f 4
T{ cons f f f } } } } } [ 2 + ] lmap
nil } } } } [ 2 + ] lmap
] unit-test
{ 10 } [
T{ cons f 1
T{ cons f 1
T{ cons f 2
T{ cons f 3
T{ cons f 4
T{ cons f f f } } } } } 0 [ + ] lreduce
nil } } } } 0 [ + ] lreduce
] unit-test
T{
cons
f
1
T{
cons
f
2
T{
cons
f
T{ cons f 3 T{ cons f 4 T{ cons f 5 nil } } }
T{ cons f f f }
} } } [
{ 1 2 { 3 4 { 5 } } } seq>cons
] unit-test
{ { 1 2 { 3 4 { 5 } } } } [
{ 1 2 { 3 4 { 5 } } } seq>cons cons>seq
] unit-test