basis/grouping/grouping-tests.factor

   1 USING: grouping tools.test kernel sequences arrays ;
   2 IN: grouping.tests
   3
   4 [ { 1 2 3 } 0 group ] must-fail
   5
   6 [ { "hell" "o wo" "rld" } ] [ "hello world" 4 group ] unit-test
   7
   8 [ { V{ "a" "b" } V{ 0 0 } } ] [
   9     V{ "a" "b" } clone 2 <groups>
  10     2 over set-length
  11     >array
  12 ] unit-test
  13
  14 [ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <sliced-clumps> [ >array ] map ] unit-test