--- a/netserver/stresstest.hs	Sun Apr 12 12:50:43 2009 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,43 +0,0 @@
-module Main where
-
-import IO
-import System.IO
-import Control.Concurrent
-import Network
-import Control.Exception
-import Control.Monad
-import System.Random
-
-session1 nick room = ["NICK", nick, "", "PROTO", "20", "", "CREATE", room, "", "CHAT_STRING", "Hi", ""]
-session2 nick room = ["NICK", nick, "", "PROTO", "20", "",   "JOIN", room, "", "CHAT_STRING", "Hello", ""]
-
-emulateSession sock s = do
-	mapM_ (\x -> hPutStrLn sock x >> randomRIO (70000::Int, 120000) >>= threadDelay) s
-	hFlush sock
-	threadDelay 250000
-
-testing = Control.Exception.handle (\e -> putStrLn $ show e) $ do
-	putStrLn "Start"
-	sock <- connectTo "127.0.0.1" (PortNumber 46631)
-
-	num1 <- randomRIO (70000::Int, 70100)
-	num2 <- randomRIO (70000::Int, 70100)
-	num3 <- randomRIO (0::Int, 7)
-	num4 <- randomRIO (0::Int, 7)
-	let nick1 = show $ num1
-	let nick2 = show $ num2
-	let room1 = show $ num3
-	let room2 = show $ num4
-	emulateSession sock $ session1 nick1 room1
-	emulateSession sock $ session2 nick2 room2
-	emulateSession sock $ session2 nick1 room1
-	hClose sock
-	putStrLn "Finish"
-
-forks = forever $ do
-	delay <- randomRIO (40000::Int, 70000)
-	threadDelay delay
-	forkIO testing
-
-main = withSocketsDo $ do
-	forks
\ No newline at end of file