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

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