35 lines
887 B
Factor
35 lines
887 B
Factor
! Copyright (C) 2013 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: math tools.test combinators.extras sequences ;
|
|
IN: combinators.extras.tests
|
|
|
|
{ "a b" }
|
|
[ "a" "b" [ " " glue ] once ] unit-test
|
|
|
|
{ "a b c" }
|
|
[ "a" "b" "c" [ " " glue ] twice ] unit-test
|
|
|
|
{ "a b c d" }
|
|
[ "a" "b" "c" "d" [ " " glue ] thrice ] unit-test
|
|
|
|
{ { "negative" 0 "positive" } } [
|
|
{ -1 0 1 } [
|
|
{
|
|
{ [ 0 > ] [ "positive" ] }
|
|
{ [ 0 < ] [ "negative" ] }
|
|
[ ]
|
|
} cond-case
|
|
] map
|
|
] unit-test
|
|
|
|
{ { 1 2 3 } } [ 1 { [ ] [ 1 + ] [ 2 + ] } cleave-array ] unit-test
|
|
|
|
{ 2 15 } [ 1 2 3 4 5 6 [ - - ] [ + + ] 3bi* ] unit-test
|
|
|
|
{ 2 5 } [ 1 2 3 4 5 6 [ - - ] 3bi@ ] unit-test
|
|
|
|
{ 3 1 } [ 1 2 [ + ] keepd ] unit-test
|
|
|
|
{ "1" "123" } [ "1" "123" [ length ] [ > ] swap-when ] unit-test
|
|
{ "123" "1" } [ "1" "123" [ length ] [ < ] swap-when ] unit-test
|