Paste: suffix-array unit test

Author: pruned
Mode: factor
Date: Sun, 5 Oct 2008 09:45:16
Plain Text | 
! Copyright (C) 2008 Marc Fauconneau.
! See http://factorcode.org/license.txt for BSD license.
USING: tools.test suffix-array kernel namespaces ;
IN: suffix-array.tests

! built from [ all-words 10 head [ name>> ] map ]
{
    "run-tests"
    "must-fail-with"
    "test-all"
    "short-effect"
    "failure"
    "test"
    "<failure>"
    "this-test"
    "(unit-test)"
    "unit-test"
} "strings" set

[ "strings" get >suffix-array "" swap query ] must-fail
[ { } >suffix-array "something" swap query ] must-fail
[ V{ "unit-test" "(unit-test)" } ] [ "strings" get >suffix-array "unit-test" swap query ] unit-test
[ V{ } ] [ "strings" get >suffix-array "something else" swap query ] unit-test

New Annotation

Summary:
Author:
Mode:
Body: