extra/ui/tools/tools-tests.factor

   1 USING: ui.tools ui.tools.interactor ui.tools.listener
   2 ui.tools.search ui.tools.workspace kernel models namespaces
   3 sequences timers tools.test ui.gadgets ui.gadgets.buttons
   4 ui.gadgets.controls ui.gadgets.labelled ui.gadgets.presentations
   5 ui.gadgets.scrollers vocabs ;
   6 IN: temporary
   7
   8 [
   9     [ f ] [
  10         0 <model> <gadget> [ 2drop ] <control> gadget set
  11         <workspace-tabs> gadget-children empty?
  12     ] unit-test
  13 ] with-scope
  14
  15 timers get [ init-timers ] unless
  16
  17 [ ] [ <workspace> "w" set ] unit-test
  18 [ ] [ "w" get com-scroll-up ] unit-test
  19 [ ] [ "w" get com-scroll-down ] unit-test
  20 [ t ] [
  21     "w" get workspace-book gadget-children
  22     [ tool-scroller ] map [ ] subset [ scroller? ] all?
  23 ] unit-test
  24 [ ] [ "w" get hide-popup ] unit-test
  25 [ ] [ <gadget> "w" get show-popup ] unit-test
  26 [ ] [ "w" get hide-popup ] unit-test
  27
  28 [ ] [
  29     <gadget> "w" get show-popup
  30     <gadget> "w" get show-popup
  31     "w" get hide-popup
  32 ] unit-test
  33
  34 [ ] [
  35     <workspace> "w" set
  36     "w" get graft
  37     "w" get "kernel" vocab show-vocab-words
  38 ] unit-test
  39
  40 "w" get workspace-popup closable-gadget-content
  41 live-search-list gadget-child "p" set
  42
  43 [ t ] [ "p" get presentation? ] unit-test
  44
  45 "p" get <operations-menu> gadget-child gadget-child "c" set
  46
  47 [ t ] [ "c" get button? ] unit-test
  48
  49 [ ] [
  50     "w" get workspace-listener listener-gadget-input
  51     3 handle-parse-error
  52 ] unit-test
  53
  54 [ ] [ "w" get ungraft ] unit-test