Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some improvements in test programs
authorunc0rr
Mon, 28 Mar 2011 20:28:59 +0400
changeset 5058 4229507909d6
parent 5057 b47ebd95c885
child 5059 68a5415ca8ea
Some improvements in test programs
gameServer/stresstest.hs file | annotate | diff | comparison | revisions
gameServer/stresstest3.hs file | annotate | diff | comparison | revisions 
--- 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
 
--- 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
hedgewars