gameServer/stresstest2.hs
author nemo
Mon, 15 Jun 2009 13:55:45 +0000
changeset 2165 b682decd07b3
parent 1804 4e78ad846fb6
child 2352 7eaf82cf0890
permissions -rw-r--r--
Remove BOM From zn_TW/de - add zh_TW translations for 37/38 and messages to zh_CN pending tracking down Chinese coworker

{-# LANGUAGE CPP #-}

module Main where

import IO
import System.IO
import Control.Concurrent
import Network
import Control.Exception
import Control.Monad
import System.Random

#if !defined(mingw32_HOST_OS)
import System.Posix
#endif

testing = Control.Exception.handle (\e -> putStrLn $ show e) $ do
	delay <- randomRIO (100::Int, 300)
	threadDelay delay
	sock <- connectTo "127.0.0.1" (PortNumber 46631)
	hClose sock

forks i = do
	delay <- randomRIO (50::Int, 190)
	if i `mod` 10 == 0 then putStr (show i) else putStr "."
	hFlush stdout
	threadDelay delay
	forkIO testing
	forks (i + 1)

main = withSocketsDo $ do
#if !defined(mingw32_HOST_OS)
	installHandler sigPIPE Ignore Nothing;
#endif
	forks 1