basis/ui/tools/listener/completion/completion-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test ui.tools.listener.completion ;
   4 IN: ui.tools.listener.completion.tests
   5
   6 [ f ] [ { "USE:" "A" "B" "C" } complete-vocab? ] unit-test
   7
   8 [ t ] [ { "USE:" "A" } complete-vocab? ] unit-test
   9
  10 [ t ] [ { "UNUSE:" "A" } complete-vocab? ] unit-test
  11
  12 [ t ] [ { "QUALIFIED:" "A" } complete-vocab? ] unit-test
  13
  14 [ t ] [ { "QUALIFIED-WITH:" "A" } complete-vocab? ] unit-test
  15
  16 [ t ] [ { "USING:" "A" "B" "C" } complete-vocab-list? ] unit-test
  17
  18 [ f ] [ { "USING:" "A" "B" "C" ";" } complete-vocab-list? ] unit-test
  19
  20 [ t ] [ { "X" ";" "USING:" "A" "B" "C" } complete-vocab-list? ] unit-test