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 ;
5 ! built from [ all-words 10 head [ name>> ] map ]
18 } >suffix-array "suffix-array" set
22 [ "suffix-array" get "" swap query empty? not ] unit-test
25 [ SA{ } "something" swap query ] unit-test
27 { { "unit-test" "(unit-test)" } }
28 [ "suffix-array" get "unit-test" swap query ] unit-test
31 [ "suffix-array" get "something else" swap query empty? ] unit-test
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