diff -r 41e06b74c991 -r 709fdb89f76c gameServer/stresstest.hs --- a/gameServer/stresstest.hs Sun Oct 10 12:53:16 2010 -0400 +++ b/gameServer/stresstest.hs Sun Oct 10 21:32:18 2010 +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 (300000::Int, 590000) >>= threadDelay) s + mapM_ (\x -> hPutStrLn sock x >> hFlush sock >> randomRIO (30000::Int, 59000) >>= threadDelay) s hFlush sock threadDelay 225000 @@ -40,7 +40,7 @@ putStrLn "Finish" forks = forever $ do - delay <- randomRIO (300000::Int, 590000) + delay <- randomRIO (30000::Int, 59000) threadDelay delay forkIO testing