41 lines
1.5 KiB
Factor
41 lines
1.5 KiB
Factor
USING: grouping tools.test kernel sequences arrays
|
|
math accessors ;
|
|
|
|
[ { 1 2 3 } 0 group ] must-fail
|
|
[ f 3 <groups> first ] [ bounds-error? ] must-fail-with
|
|
|
|
{ { "hell" "o wo" "rld" } } [ "hello world" 4 group ] unit-test
|
|
|
|
{ 0 } [ { } 2 <clumps> length ] unit-test
|
|
{ 0 } [ { 1 } 2 <clumps> length ] unit-test
|
|
{ 1 } [ { 1 2 } 2 <clumps> length ] unit-test
|
|
{ 2 } [ { 1 2 3 } 2 <clumps> length ] unit-test
|
|
|
|
{ { } } [ { 1 } 2 clump ] unit-test
|
|
{ { { 1 2 } } } [ { 1 2 } 2 clump ] unit-test
|
|
{ { { 1 2 } { 2 3 } } } [ { 1 2 3 } 2 clump ] unit-test
|
|
|
|
{ 0 } [ { } 2 <circular-clumps> length ] unit-test
|
|
{ 1 } [ { 1 } 2 <circular-clumps> length ] unit-test
|
|
|
|
{ 2 } [ { 1 2 } 2 <circular-clumps> length ] unit-test
|
|
{ 3 } [ { 1 2 3 } 2 <circular-clumps> length ] unit-test
|
|
|
|
{ { { 1 1 } } } [ { 1 } 2 circular-clump ] unit-test
|
|
{ { { 1 2 } { 2 1 } } } [ { 1 2 } 2 circular-clump ] unit-test
|
|
{ { { 1 2 } { 2 3 } { 3 1 } } } [ { 1 2 3 } 2 circular-clump ] unit-test
|
|
|
|
{ 1 } [ V{ } 2 <clumps> 0 over set-length seq>> length ] unit-test
|
|
{ 2 } [ V{ } 2 <clumps> 1 over set-length seq>> length ] unit-test
|
|
{ 3 } [ V{ } 2 <clumps> 2 over set-length seq>> length ] unit-test
|
|
|
|
{ { { 1 2 } { 2 3 } } } [ { 1 2 3 } 2 <clumps> [ >array ] map ] unit-test
|
|
|
|
{ f } [ [ { } { } "Hello" ] all-equal? ] unit-test
|
|
{ f } [ [ { 2 } { } { } ] all-equal? ] unit-test
|
|
{ t } [ [ ] all-equal? ] unit-test
|
|
{ t } [ [ 1234 ] all-equal? ] unit-test
|
|
{ f } [ [ 1.0 1 1 ] all-equal? ] unit-test
|
|
{ t } [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
|
|
{ f } [ { 1 2 3 4 } [ > ] monotonic? ] unit-test
|