Fix sliders unit test

2006-10-28 06:44:59 +00:00 · 2006-10-28 06:44:59 +00:00 · cc06f93262
parent a00e10d106
commit cc06f93262
1 changed files with 7 additions and 2 deletions
--- a/library/ui/test/sliders.factor
+++ b/library/ui/test/sliders.factor
@ -1,8 +1,13 @@
 IN: temporary
-USING: gadgets-scrolling gadgets test generic ;
+USING: gadgets-scrolling gadgets test generic kernel ;
+
+timers [ init-timers ] unless

 [ t ]
 [ <y-slider> slider-elevator [ timer-gadget? ] is? ]
 unit-test

-[ ] [ <y-slider> slider-elevator elevator-click ] unit-test
+[ ] [
+    <y-slider> slider-elevator
+    dup elevator-click stop-timer-gadget
+] unit-test