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