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 math
   6 calendar ;
   7 IN: ui.tools.listener.tests
   8
   9 [ f ] [ "word" source-editor command-map commands>> empty? ] unit-test
  10
  11 [ ] [ <listener-gadget> [ ] with-grafted-gadget ] unit-test
  12
  13 [ ] [ <listener-gadget> "listener" set ] unit-test
  14
  15 "listener" get [
  16     [ "dup" ] [
  17         \ dup word-completion-string
  18     ] unit-test
  19
  20     [ "equal?" ]
  21     [ \ array \ equal? method word-completion-string ] unit-test
  22
  23     <pane> <interactor> "i" set
  24
  25     [ t ] [ "i" get interactor? ] unit-test
  26
  27     [ ] [ "SYMBOL:" "i" get set-editor-string ] unit-test
  28
  29     [ ] [
  30         "i" get [ { "SYMBOL:" } parse-lines ] [ go-to-error ] recover
  31     ] unit-test
  32
  33     [ t ] [
  34         "i" get model>> doc-end
  35         "i" get editor-caret* =
  36     ] unit-test
  37
  38     ! Race condition discovered by SimonRC
  39     [ ] [
  40         [
  41             "listener" get input>>
  42             [ stream-read-quot drop ]
  43             [ stream-read-quot drop ] bi
  44         ] "OH, HAI" spawn drop
  45     ] unit-test
  46
  47     [ ] [ "listener" get clear-output ] unit-test
  48
  49     [ ] [ "listener" get restart-listener ] unit-test
  50
  51     [ ] [ 1 seconds sleep ] unit-test
  52
  53     [ ] [ "listener" get com-end ] unit-test
  54 ] with-grafted-gadget
  55
  56 [ ] [ \ + <pane> <interactor> interactor-use use-if-necessary ] unit-test