Fix search unit ttest

TODO.FACTOR.txt

@@ -1,8 +1,6 @@
 + 0.87:
 
 - claim: if module fails to load, reloading it doesn't work?
-
-- fix search unit test
 - these things are "Too Slow":
   - all-words
   - make-image
@@ -40,6 +38,7 @@
     -fomit-frame-pointer or not
   - doesn't show #labels
   - we don't know if signal handlers run with the same stack or not
+- got a random sig11 while reloading/recompiling
 
 + ui:
 
@@ -91,6 +90,7 @@
 
 + misc:
 
+- tuple shape changes
 - should be possible to reload any source file in library
 - growable data heap
 - minor GC takes too long now, we should card mark code heap

library/ui/test/listener.factor

@@ -1,6 +1,8 @@
 IN: temporary
 USING: gadgets-listener words arrays namespaces test kernel
-freetype ;
+freetype timers ;
+
+timers [ init-timers ] unless
 
 [
     <listener-gadget> "listener" set

library/ui/test/search.factor

@@ -1,22 +1,26 @@
-! IN: temporary
+IN: temporary
-! USING: gadgets-search io test namespaces gadgets 
+USING: gadgets-search io test namespaces gadgets 
-! sequences threads ;
+sequences threads freetype timers kernel ;
-! 
-! [ "hey man (score: 123)" ]
-! [
-!     [
-!         { "hey man" 123 } [ <pathname> ] string-completion.
-!     ] string-out
-! ] unit-test
-! 
-! "set-word-prop" [ ] <word-search> "search" set
-! "search" get graft*
-! 
-! 1000 sleep
-! 
-! [ f ]
-! [ "search" get live-search-list control-value empty? ]
-! unit-test
-! 
-! "search" get ungraft*
 
+timers get [ init-timers ] unless
+
+[
+    [ "hey man (score: 123)" ]
+    [
+        [
+            { "hey man" 123 } [ <pathname> ] string-completion.
+        ] string-out
+    ] unit-test
+    
+    "set-word-prop" [ ] <word-search> "search" set
+    "search" get graft
+    
+    1000 sleep
+    do-timers
+    
+    [ f ]
+    [ "search" get live-search-list control-value empty? ]
+    unit-test
+    
+    "search" get ungraft
+] with-freetype