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