21 lines
365 B
Factor
21 lines
365 B
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*
|
|
|