2011-09-13 12:22:57 -04:00
|
|
|
|
|
|
|
|
USING: assocs kernel tools.completion tools.completion.private
|
|
|
|
|
tools.test ;
|
|
|
|
|
|
|
|
|
|
IN: tools.completion
|
|
|
|
|
|
|
|
|
|
[ f ] [ "abc" "def" fuzzy ] unit-test
|
|
|
|
|
[ V{ 4 5 6 } ] [ "set-nth" "nth" fuzzy ] unit-test
|
|
|
|
|
|
|
|
|
|
[ V{ V{ 0 } V{ 4 5 6 } } ] [ V{ 0 4 5 6 } runs ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { "nth" "?nth" "set-nth" } ] [
|
|
|
|
|
"nth" { "set-nth" "nth" "?nth" } dup zip completions keys
|
|
|
|
|
] unit-test
|
2011-09-17 12:00:43 -04:00
|
|
|
|
|
|
|
|
[ { "a" "b" "c" "d" "e" "f" "g" } ] [
|
|
|
|
|
"" { "a" "b" "c" "d" "e" "f" "g" } dup zip completions keys
|
|
|
|
|
] unit-test
|
