steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix sliders unit test

slava 2006-10-28 06:44:59 +00:00
parent a00e10d106
commit cc06f93262
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/ui/test/sliders.factor
View File

@ -1,8 +1,13 @@
IN: temporary IN: temporary
USING: gadgets-scrolling gadgets test generic ; USING: gadgets-scrolling gadgets test generic kernel ;
timers [ init-timers ] unless
[ t ] [ t ]
[ <y-slider> slider-elevator [ timer-gadget? ] is? ] [ <y-slider> slider-elevator [ timer-gadget? ] is? ]
unit-test unit-test
[ ] [ <y-slider> slider-elevator elevator-click ] unit-test [ ] [
<y-slider> slider-elevator
dup elevator-click stop-timer-gadget
] unit-test