 
             ! Non-recursive
             [ ] [ "monitor-timeout-test" temp-file f <monitor> "m" set ] unit-test
-            [ ] [ 3 seconds "m" get set-timeout ] unit-test
+            [ ] [ 100 milliseconds "m" get set-timeout ] unit-test
             [ [ t ] [ "m" get next-change drop ] while ] must-fail
             [ ] [ "m" get dispose ] unit-test
 
             ! Recursive
             [ ] [ "monitor-timeout-test" temp-file t <monitor> "m" set ] unit-test
-            [ ] [ 3 seconds "m" get set-timeout ] unit-test
+            [ ] [ 100 milliseconds "m" get set-timeout ] unit-test
             [ [ t ] [ "m" get next-change drop ] while ] must-fail
             [ ] [ "m" get dispose ] unit-test
         ] with-unique-directory delete-tree

USING: io.monitors tools.test io.files system sequences
continuations namespaces concurrency.count-downs kernel io
threads calendar prettyprint destructors io.timeouts
io.files.temp io.directories io.directories.hierarchy
io.pathnames accessors concurrency.promises ;
IN: io.monitors.tests

os { windows linux macosx } member? [

                "p" get fulfill
            ] in-thread

            [ ] [ 100 milliseconds sleep ] unit-test
            [ ] [ "m" get dispose ] unit-test
            [ t ] [ "p" get 10 seconds ?promise-timeout already-disposed? ] unit-test
        ] with-unique-directory delete-tree
