gameServer/stresstest2.hs
author unc0rr
Thu, 11 Nov 2010 22:17:54 +0300
branch0.9.14
changeset 4242 5e3c5fe2cb14
parent 3947 709fdb89f76c
child 4295 1f5604cd99be
permissions -rw-r--r--
Revert to old server in branch 0.9.14

{-# 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 print $ 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