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

   1 USING: continuations documents ui.tools.interactor
   2 ui.tools.listener hashtables kernel namespaces parser sequences
   3 tools.test ui.commands ui.gadgets ui.gadgets.editors
   4 ui.gadgets.panes vocabs words tools.test.ui slots.private
   5 threads arrays generic threads accessors listener ;
   6 IN: ui.tools.listener.tests
   7
   8 [ f ] [ "word" source-editor command-map commands>> empty? ] unit-test
   9
  10 [ ] [ <listener-gadget> [ ] with-grafted-gadget ] unit-test
  11
  12 [ ] [ <listener-gadget> "listener" set ] unit-test
  13
  14 "listener" get [
  15     [ "dup" ] [
  16         \ dup word-completion-string
  17     ] unit-test
  18
  19     [ "equal?" ]
  20     [ \ array \ equal? method word-completion-string ] unit-test
  21
  22     <pane> <interactor> "i" set
  23
  24     [ t ] [ "i" get interactor? ] unit-test
  25
  26     [ ] [ "SYMBOL:" "i" get set-editor-string ] unit-test
  27
  28     [ ] [
  29         "i" get [ { "SYMBOL:" } parse-lines ] [ go-to-error ] recover
  30     ] unit-test
  31
  32     [ t ] [
  33         "i" get model>> doc-end
  34         "i" get editor-caret* =
  35     ] unit-test
  36
  37     ! Race condition discovered by SimonRC
  38     [ ] [
  39         [
  40             "listener" get input>>
  41             [ stream-read-quot drop ]
  42             [ stream-read-quot drop ] bi
  43         ] "OH, HAI" spawn drop
  44     ] unit-test
  45
  46     [ ] [ "listener" get clear-output ] unit-test
  47
  48     [ ] [ "listener" get restart-listener ] unit-test
  49
  50     [ ] [ 1000 sleep ] unit-test
  51
  52     [ ] [ "listener" get com-end ] unit-test
  53 ] with-grafted-gadget