basis/ui/gadgets/buttons/buttons-tests.factor

   1 USING: accessors kernel models namespaces tools.test ui.gadgets
   2 ui.gadgets.buttons ;
   3
   4 { } [
   5     2 <model> {
   6         { 0 "atheist" }
   7         { 1 "christian" }
   8         { 2 "muslim" }
   9         { 3 "jewish" }
  10     } <radio-buttons> "religion" set
  11 ] unit-test
  12
  13 { 0 } [
  14     "religion" get gadget-child value>>
  15 ] unit-test
  16
  17 { 2 } [
  18     "religion" get gadget-child control-value
  19 ] unit-test
  20
  21 { t t } [
  22     "but1" [ ] <roll-button> "but2" [ ] <roll-button>
  23     [ [ boundary>> ] bi@ eq? ] [ [ interior>> ] bi@ eq? ] 2bi
  24 ] unit-test