factor/library/ui/test/search.factor

IN: temporary
USING: gadgets-search io test namespaces gadgets 
sequences ;

[ "hey man (score: 123)" ]
[
    [
        { "hey man" 123 } [ <pathname> ] string-completion.
    ] string-out
] unit-test

"set-word-prop" [ ] <word-search> "search" set
"search" get graft*

[ f ]
[ "search" get live-search-list control-value empty? ]
unit-test

"search" get ungraft*