factor/extra/lists/lists-tests.factor

46 lines
1.0 KiB
Factor
Raw Normal View History

! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license.
USING: tools.test lists math ;
IN: lists.tests
{ { 3 4 5 6 } } [
T{ cons f 1
T{ cons f 2
T{ cons f 3
T{ cons f 4
2008-06-04 00:56:06 -04:00
+nil+ } } } } [ 2 + ] lmap>array
] unit-test
{ 10 } [
2008-06-03 20:11:45 -04:00
T{ cons f 1
T{ cons f 2
T{ cons f 3
T{ cons f 4
2008-06-04 00:56:06 -04:00
+nil+ } } } } 0 [ + ] lreduce
2008-06-03 20:11:45 -04:00
] unit-test
2008-06-03 23:38:56 -04:00
{ T{ cons f
1
T{ cons f
2
T{ cons f
T{ cons f
3
T{ cons f
4
T{ cons f
2008-06-04 00:56:06 -04:00
T{ cons f 5 +nil+ }
+nil+ } } }
+nil+ } } }
2008-06-03 23:38:56 -04:00
} [
2008-06-03 20:11:45 -04:00
{ 1 2 { 3 4 { 5 } } } seq>cons
] unit-test
{ { 1 2 { 3 4 { 5 } } } } [
{ 1 2 { 3 4 { 5 } } } seq>cons cons>seq
2008-06-04 00:56:06 -04:00
] unit-test
! { { 3 4 { 5 6 { 7 } } } } [
! { 1 2 { 3 4 { 5 } } } seq>cons [ 2 + ] traverse cons>seq
! ] unit-test