From e87e686869aab65f91c68bc3975812fc7bc04acf Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 24 Sep 2009 03:00:40 -0500 Subject: [PATCH] ui.tools.listener.completion: fix tests --- .../listener/completion/completion-tests.factor | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/basis/ui/tools/listener/completion/completion-tests.factor b/basis/ui/tools/listener/completion/completion-tests.factor index 9b2b5a1673..5b79e918b5 100644 --- a/basis/ui/tools/listener/completion/completion-tests.factor +++ b/basis/ui/tools/listener/completion/completion-tests.factor @@ -3,8 +3,18 @@ USING: tools.test ui.tools.listener.completion ; IN: ui.tools.listener.completion.tests -[ t ] [ { "USING:" "A" "B" "C" } complete-USING:? ] unit-test +[ f ] [ { "USE:" "A" "B" "C" } complete-vocab? ] unit-test -[ f ] [ { "USING:" "A" "B" "C" ";" } complete-USING:? ] unit-test +[ t ] [ { "USE:" "A" } complete-vocab? ] unit-test -[ t ] [ { "X" ";" "USING:" "A" "B" "C" } complete-USING:? ] unit-test \ No newline at end of file +[ t ] [ { "UNUSE:" "A" } complete-vocab? ] unit-test + +[ t ] [ { "QUALIFIED:" "A" } complete-vocab? ] unit-test + +[ t ] [ { "QUALIFIED-WITH:" "A" } complete-vocab? ] unit-test + +[ t ] [ { "USING:" "A" "B" "C" } complete-vocab-list? ] unit-test + +[ f ] [ { "USING:" "A" "B" "C" ";" } complete-vocab-list? ] unit-test + +[ t ] [ { "X" ";" "USING:" "A" "B" "C" } complete-vocab-list? ] unit-test \ No newline at end of file