basis/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 tools.test ui.gadgets ui.gadgets.buttons
   4 ui.gadgets.labelled ui.gadgets.presentations
   5 ui.gadgets.menus ui.gadgets.scrollers vocabs tools.test.ui ui accessors ;
   6 IN: ui.tools.tests
   7
   8 [ f ]
   9 [
  10     <gadget> 0 <model> >>model <workspace-tabs> children>> empty?
  11 ] unit-test
  12
  13 [ ] [ <workspace> "w" set ] unit-test
  14 [ ] [ "w" get com-scroll-up ] unit-test
  15 [ ] [ "w" get com-scroll-down ] unit-test
  16 [ t ] [
  17     "w" get book>> children>>
  18     [ tool-scroller ] map sift [ scroller? ] all?
  19 ] unit-test
  20 [ ] [ "w" get hide-popup ] unit-test
  21 [ ] [ <gadget> "w" get show-popup ] unit-test
  22 [ ] [ "w" get hide-popup ] unit-test
  23
  24 [ ] [
  25     <gadget> "w" get show-popup
  26     <gadget> "w" get show-popup
  27     "w" get hide-popup
  28 ] unit-test
  29
  30 [ ] [ <workspace> [ ] with-grafted-gadget ] unit-test
  31
  32 "w" get [
  33
  34     [ ] [ "w" get "kernel" vocab show-vocab-words ] unit-test
  35
  36     [ ] [ notify-queued ] unit-test
  37
  38     [ ] [ "w" get popup>> content>>
  39     list>> gadget-child "p" set ] unit-test
  40
  41     [ t ] [ "p" get presentation? ] unit-test
  42
  43     [ ] [
  44         "p" get [ object>> ] [ dup hook>> curry ] bi
  45         <operations-menu> gadget-child gadget-child "c" set
  46     ] unit-test
  47
  48     [ ] [ notify-queued ] unit-test
  49
  50     [ t ] [ "c" get button? ] unit-test
  51
  52     [ ] [
  53         "w" get listener>> input>>
  54         3 handle-parse-error
  55     ] unit-test
  56
  57     [ ] [ notify-queued ] unit-test
  58 ] with-grafted-gadget