From 5fd42c4e543ea6ffa7a42ae2be35afef9fa73854 Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Tue, 29 Jul 2008 00:52:42 -0300
Subject: [PATCH] irc.client: For tests that need to wait, wait 0.1 seconds
 instead of 1 second.

---
 extra/irc/client/client-tests.factor | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/extra/irc/client/client-tests.factor b/extra/irc/client/client-tests.factor
index 166619f6cb..08307a2d5c 100644
--- a/extra/irc/client/client-tests.factor
+++ b/extra/irc/client/client-tests.factor
@@ -43,7 +43,7 @@ IN: irc.client.tests
       ":some.where 001 factorbot :Welcome factorbot"
     } make-client
     { [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ profile>> nickname>> ]
       [ terminate-irc ]
     } cleave ] unit-test
@@ -57,8 +57,8 @@ IN: irc.client.tests
     } make-client
     { [ "factorbot" set-nick ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
-      [ join-messages>> 1 seconds mailbox-get-timeout ]
+      [ drop 0.1 seconds sleep ]
+      [ join-messages>> 0.1 seconds mailbox-get-timeout ]
       [ terminate-irc ]
     } cleave
     [ class ] [ trailing>> ] bi ] unit-test
@@ -109,7 +109,7 @@ IN: irc.client.tests
       [ listeners>>
         [ "#factortest" [ <irc-channel-listener> ] keep ] dip set-at ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ listeners>> [ "#factortest" ] dip at participants>> ]
       [ terminate-irc ]
     } cleave
@@ -124,7 +124,7 @@ IN: irc.client.tests
                              { "somedude" f } } clone >>participants ] keep
         ] dip set-at ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ listeners>> [ "#factortest" ] dip at participants>> ]
       [ terminate-irc ]
     } cleave
@@ -139,7 +139,7 @@ IN: irc.client.tests
                              { "somedude" f } } clone >>participants ] keep
         ] dip set-at ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ listeners>> [ "#factortest" ] dip at participants>> ]
       [ terminate-irc ]
     } cleave
@@ -154,7 +154,7 @@ IN: irc.client.tests
                              { "somedude" f } } clone >>participants ] keep
         ] dip set-at ]
       [ connect-irc ]
-      [ drop 1 seconds sleep ]
+      [ drop 0.1 seconds sleep ]
       [ listeners>> [ "#factortest" ] dip at participants>> ]
       [ terminate-irc ]
     } cleave