/extra/sequences/repeating/repeating-tests.factor

 1USING: sequences.repeating tools.test ;
 2IN: sequences.repeating.tests
 3
 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 3 } 0 repeat ] unit-test
 8[ { 1 2 3 } ] [ { 1 2 3 } 1 repeat ] unit-test
 9[ { 1 1 2 2 3 3 } ] [ { 1 2 3 } 2 repeat ] unit-test
10[ { 1 1 1 2 2 2 3 3 3 } ] [ { 1 2 3 } 3 repeat ] unit-test
11[ { 1 1 1 1 2 2 2 2 3 3 3 3 } ] [ { 1 2 3 } 4 repeat ] unit-test