core/ui/test/sliders.factor

   1 IN: temporary
   2 USING: gadgets-sliders gadgets test generic kernel timers ;
   3
   4 timers [ init-timers ] unless
   5
   6 [ t ]
   7 [ <y-slider> slider-elevator [ timer-gadget? ] is? ]
   8 unit-test
   9
  10 [ ] [
  11     <y-slider> slider-elevator
  12     dup elevator-click stop-timer-gadget
  13 ] unit-test