io.monitors: fix test by disposing then pumping events

fixes #2746

diff --git a/basis/io/monitors/monitors-tests.factor b/basis/io/monitors/monitors-tests.factor
index 7b8fbe318562076c8266af8f573d1f882134a2db..fdec5a87b03c73149a25819da42dce4d970a664f 100644 (file)
--- a/basis/io/monitors/monitors-tests.factor
+++ b/basis/io/monitors/monitors-tests.factor
@@ -126,11 +126,11 @@ sequences threads tools.test ;
             10 seconds "m" get set-timeout
 
             [
-                [ "m" get next-change ] [ ] recover
+                250 milliseconds sleep ! let the dispose run, then pump
+                [ "m" get next-change ] [ ] recover ! pump event
                 "p" get fulfill
             ] in-thread
 
-            250 milliseconds sleep
             "m" get dispose
 
             "p" get 10 seconds ?promise-timeout