extra/sequences/repeating/repeating-tests.factor

   1 USING: literals sequences sequences.repeating tools.test ;
   2
   3 { { 1 } } [ { 1 2 3 } 1 cycle ] unit-test
   4 { { 1 2 3 1 2 } } [ { 1 2 3 } 5 cycle ] unit-test
   5 { { 1 2 3 1 2 3 1 2 3 } } [ { 1 2 3 } 9 cycle ] unit-test
   6
   7 { $[ { 1 2 } minimum ] } [ { 1 2 3 } 2 <cycles> minimum ] unit-test
   8 { $[ { 1 2 3 1 2 } minimum ] } [ { 1 2 3 } 5 <cycles> minimum ] unit-test
   9 { $[ { 1 2 3 1 2 3 1 2 3 } minimum ] } [ { 1 2 3 } 9 <cycles> minimum ] unit-test
  10 { $[ { 1 2 } maximum ] } [ { 1 2 3 } 2 <cycles> maximum ] unit-test
  11 { $[ { 1 2 3 1 2 } maximum ] } [ { 1 2 3 } 5 <cycles> maximum ] unit-test
  12 { $[ { 1 2 3 1 2 3 1 2 3 } maximum ] } [ { 1 2 3 } 9 <cycles> maximum ] unit-test
  13
  14 { { } } [ { 1 2 3 } 0 repeat-elements ] unit-test
  15 { { 1 2 3 } } [ { 1 2 3 } 1 repeat-elements ] unit-test
  16 { { 1 1 2 2 3 3 } } [ { 1 2 3 } 2 repeat-elements ] unit-test
  17 { { 1 1 1 2 2 2 3 3 3 } } [ { 1 2 3 } 3 repeat-elements ] unit-test
  18 { { 1 1 1 1 2 2 2 2 3 3 3 3 } } [ { 1 2 3 } 4 repeat-elements ] unit-test
  19
  20 { $[ { 1 1 1 2 2 2 3 3 3 } minimum ] } [ { 1 2 3 } 3 <element-repeats> minimum ] unit-test
  21 { $[ { 1 1 1 1 2 2 2 2 3 3 3 3 } minimum ] } [ { 1 2 3 } 4 <element-repeats> minimum ] unit-test
  22 { $[ { 1 1 1 2 2 2 3 3 3 } maximum ] } [ { 1 2 3 } 3 <element-repeats> maximum ] unit-test
  23 { $[ { 1 1 1 1 2 2 2 2 3 3 3 3 } maximum ] } [ { 1 2 3 } 4 <element-repeats> maximum ] unit-test
  24
  25 { { } } [ { 1 2 3 } 0 repeat ] unit-test
  26 { { 1 2 3 } } [ { 1 2 3 } 1 repeat ] unit-test
  27 { { 1 2 3 1 2 3 } } [ { 1 2 3 } 2 repeat ] unit-test
  28 { { 1 2 3 1 2 3 1 2 3 } } [ { 1 2 3 } 3 repeat ] unit-test
  29 { { 1 2 3 1 2 3 1 2 3 1 2 3 } } [ { 1 2 3 } 4 repeat ] unit-test
  30