# HG changeset patch
# User unc0rr
# Date 1301329739 -14400
# Node ID 4229507909d6a28a49d3884e9487f1aa78f478d9
# Parent  b47ebd95c885386be359c938ac99c2664dd6d468
Some improvements in test programs

diff -r b47ebd95c885 -r 4229507909d6 gameServer/stresstest.hs
--- a/gameServer/stresstest.hs	Mon Mar 28 16:30:44 2011 +0200
+++ b/gameServer/stresstest.hs	Mon Mar 28 20:28:59 2011 +0400
@@ -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 (3000000::Int, 5900000) >>= threadDelay) s
+    mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (1000000::Int, 3000000) >>= threadDelay) s
     hFlush sock
     threadDelay 225000
 
@@ -40,7 +40,7 @@
     putStrLn "Finish"
 
 forks = forever $ do
-    delay <- randomRIO (30000::Int, 59000)
+    delay <- randomRIO (30000::Int, 69000)
     threadDelay delay
     forkIO testing
 
diff -r b47ebd95c885 -r 4229507909d6 gameServer/stresstest3.hs
--- a/gameServer/stresstest3.hs	Mon Mar 28 16:30:44 2011 +0200
+++ b/gameServer/stresstest3.hs	Mon Mar 28 20:28:59 2011 +0400
@@ -62,8 +62,8 @@
     putStr "-"
     hFlush stdout
 
-forks = forM_ [1..100] $ const $ do
-    delay <- randomRIO (10000::Int, 30000)
+forks = forever $ do
+    delay <- randomRIO (0::Int, 80000)
     threadDelay delay
     forkIO testing