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