gameServer/stresstest.hs
changeset 5003 db4726bf9205
parent 4932 f11d80bac7ed
child 5058 4229507909d6
--- a/gameServer/stresstest.hs	Sat Mar 12 22:55:25 2011 +0300
+++ b/gameServer/stresstest.hs	Sun Mar 13 15:09:04 2011 +0300
@@ -19,7 +19,7 @@
 session3 nick room = ["NICK", nick, "", "PROTO", "32", "", "LIST", "", "JOIN_ROON", room, "", "CHAT", "room 2", "", "QUIT", "quit", ""]
 
 emulateSession sock s = do
-    mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (30000::Int, 59000) >>= threadDelay) s
+    mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (3000000::Int, 5900000) >>= threadDelay) s
     hFlush sock
     threadDelay 225000