From 12bd42c66364bdb7b8fbf2f42ec2375b8683e4f5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 19 May 2015 12:37:07 -0700
Subject: [PATCH] io.monitors: Fix using, speed up test from 3 second timeouts
to 100ms timeouts.
---
basis/io/monitors/monitors-tests.factor | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/basis/io/monitors/monitors-tests.factor b/basis/io/monitors/monitors-tests.factor
index 57e34e110a..8df6d69f15 100644
--- a/basis/io/monitors/monitors-tests.factor
+++ b/basis/io/monitors/monitors-tests.factor
@@ -1,8 +1,8 @@
-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 ;
+USING: accessors calendar concurrency.count-downs
+concurrency.promises continuations destructors io io.directories
+io.directories.hierarchy io.files io.files.temp io.files.unique
+io.monitors io.pathnames io.timeouts kernel namespaces sequences
+system threads tools.test ;
IN: io.monitors.tests
os { windows linux macosx } member? [
@@ -93,13 +93,13 @@ os { windows linux macosx } member? [
! 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
@@ -120,7 +120,7 @@ os { windows linux macosx } member? [
"p" get fulfill
] in-thread
- [ ] [ 1 seconds sleep ] unit-test
+ [ ] [ 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