diff --git a/library/ui/test/sliders.factor b/library/ui/test/sliders.factor index c983f4102e..2cdfd483f1 100644 --- 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 ] [ slider-elevator [ timer-gadget? ] is? ] unit-test -[ ] [ slider-elevator elevator-click ] unit-test +[ ] [ + slider-elevator + dup elevator-click stop-timer-gadget +] unit-test