extra/z-algorithm/z-algorithm-tests.factor

   1 ! Copyright (C) 2010 Dmitry Shubin.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: tools.test z-algorithm ;
   4
   5 { 0 } [ "qwerty" "" lcp ] unit-test
   6 { 0 } [ "qwerty" "asdf" lcp ] unit-test
   7 { 3 } [ "qwerty" "qwe" lcp ] unit-test
   8 { 3 } [ "qwerty" "qwet" lcp ] unit-test
   9
  10 { { } } [ "" z-values ] unit-test
  11 { { 1 } } [ "q" z-values ] unit-test
  12 { { 9 0 5 0 3 0 1 0 1 } } [ "abababaca" z-values ] unit-test