basis/grouping/grouping-tests.factor

   1 USING: grouping tools.test kernel sequences arrays
   2 math accessors ;
   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 [ 0 ] [ { } 2 <clumps> length ] unit-test
  10 [ 0 ] [ { 1 } 2 <clumps> length ] unit-test
  11 [ 1 ] [ { 1 2 } 2 <clumps> length ] unit-test
  12 [ 2 ] [ { 1 2 3 } 2 <clumps> length ] unit-test
  13
  14 { { } } [ { 1 } 2 clump ] unit-test
  15 { { { 1 2 } } } [ { 1 2 } 2 clump ] unit-test
  16 { { { 1 2 } { 2 3 } } } [ { 1 2 3 } 2 clump ] unit-test
  17
  18 { 0 } [ { } 2 <circular-clumps> length ] unit-test
  19 { 1 } [ { 1 } 2 <circular-clumps> length ] unit-test
  20
  21 [ 2 ] [ { 1 2 } 2 <circular-clumps> length ] unit-test
  22 [ 3 ] [ { 1 2 3 } 2 <circular-clumps> length ] unit-test
  23
  24 [ { { 1 1 }                 } ] [ { 1     } 2 circular-clump ] unit-test
  25 [ { { 1 2 } { 2 1 }         } ] [ { 1 2   } 2 circular-clump ] unit-test
  26 [ { { 1 2 } { 2 3 } { 3 1 } } ] [ { 1 2 3 } 2 circular-clump ] unit-test
  27
  28 [ 1 ] [ V{ } 2 <clumps> 0 over set-length seq>> length ] unit-test
  29 [ 2 ] [ V{ } 2 <clumps> 1 over set-length seq>> length ] unit-test
  30 [ 3 ] [ V{ } 2 <clumps> 2 over set-length seq>> length ] unit-test
  31
  32 [ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <clumps> [ >array ] map ] unit-test
  33
  34 [ f ] [ [ { } { } "Hello" ] all-equal? ] unit-test
  35 [ f ] [ [ { 2 } { } { } ] all-equal? ] unit-test
  36 [ t ] [ [ ] all-equal? ] unit-test
  37 [ t ] [ [ 1234 ] all-equal? ] unit-test
  38 [ f ] [ [ 1.0 1 1 ] all-equal? ] unit-test
  39 [ t ] [ { 1 2 3 4 } [ < ] monotonic? ] unit-test
  40 [ f ] [ { 1 2 3 4 } [ > ] monotonic? ] unit-test