basis/grouping/grouping-tests.factor

   1 USING: grouping tools.test kernel sequences arrays
   2 math ;
   3 IN: grouping.tests
   4
   5 [ { 1 2 3 } 0 group ] must-fail
   6
   7 [ { "hell" "o wo" "rld" } ] [ "hello world" 4 group ] unit-test
   8
   9 [ { V{ "a" "b" } V{ 0 0 } } ] [
  10     V{ "a" "b" } clone 2 <groups>
  11     2 over set-length
  12     >array
  13 ] unit-test
  14
  15 [ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <sliced-clumps> [ >array ] map ] unit-test
  16
  17 [ f ] [ [ { } { } "Hello" ] all-equal? ] unit-test
  18 [ f ] [ [ { 2 } { } { } ] all-equal? ] unit-test
  19 [ t ] [ [ ] all-equal? ] unit-test
  20 [ t ] [ [ 1234 ] all-equal? ] unit-test
  21 [ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test
  22 [ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
  23 [ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test