basis/suffix-arrays/suffix-arrays-tests.factor

   1 ! Copyright (C) 2008 Marc Fauconneau.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test suffix-arrays kernel namespaces sequences ;
   4
   5 ! built from [ all-words 10 head [ name>> ] map ]
   6 { } [
   7      {
   8         "run-tests"
   9         "must-fail-with"
  10         "test-all"
  11         "short-effect"
  12         "failure"
  13         "test"
  14         "<failure>"
  15         "this-test"
  16         "(unit-test)"
  17         "unit-test"
  18     } >suffix-array "suffix-array" set
  19 ] unit-test
  20
  21 { t }
  22 [ "suffix-array" get "" swap query empty? not ] unit-test
  23
  24 { { } }
  25 [ SA{ } "something" swap query ] unit-test
  26
  27 { { "unit-test" "(unit-test)" } }
  28 [ "suffix-array" get "unit-test" swap query ] unit-test
  29
  30 { t }
  31 [ "suffix-array" get "something else" swap query empty? ] unit-test
  32
  33 { { "rofl" } } [ SA{ "rofl" } "r" swap query ] unit-test
  34 { { "rofl" } } [ SA{ "rofl" } "o" swap query ] unit-test
  35 { { "rofl" } } [ SA{ "rofl" } "f" swap query ] unit-test
  36 { { "rofl" } } [ SA{ "rofl" } "l" swap query ] unit-test
  37 { { } } [ SA{ "rofl" } "t" swap query ] unit-test