From cc06f932626b1015078a8f50fce201f92698baef Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 28 Oct 2006 06:44:59 +0000
Subject: [PATCH] Fix sliders unit test

---
 library/ui/test/sliders.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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 ]
 [ <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