1 module Main where |
|
2 |
|
3 import IO |
|
4 import System.IO |
|
5 import Control.Concurrent |
|
6 import Network |
|
7 import Control.Exception |
|
8 import Control.Monad |
|
9 import System.Random |
|
10 |
|
11 session1 nick room = ["NICK", nick, "", "PROTO", "20", "", "CREATE", room, "", "CHAT_STRING", "Hi", ""] |
|
12 session2 nick room = ["NICK", nick, "", "PROTO", "20", "", "JOIN", room, "", "CHAT_STRING", "Hello", ""] |
|
13 |
|
14 emulateSession sock s = do |
|
15 mapM_ (\x -> hPutStrLn sock x >> randomRIO (70000::Int, 120000) >>= threadDelay) s |
|
16 hFlush sock |
|
17 threadDelay 250000 |
|
18 |
|
19 testing = Control.Exception.handle (\e -> putStrLn $ show e) $ do |
|
20 putStrLn "Start" |
|
21 sock <- connectTo "127.0.0.1" (PortNumber 46631) |
|
22 |
|
23 num1 <- randomRIO (70000::Int, 70100) |
|
24 num2 <- randomRIO (70000::Int, 70100) |
|
25 num3 <- randomRIO (0::Int, 7) |
|
26 num4 <- randomRIO (0::Int, 7) |
|
27 let nick1 = show $ num1 |
|
28 let nick2 = show $ num2 |
|
29 let room1 = show $ num3 |
|
30 let room2 = show $ num4 |
|
31 emulateSession sock $ session1 nick1 room1 |
|
32 emulateSession sock $ session2 nick2 room2 |
|
33 emulateSession sock $ session2 nick1 room1 |
|
34 hClose sock |
|
35 putStrLn "Finish" |
|
36 |
|
37 forks = forever $ do |
|
38 delay <- randomRIO (40000::Int, 70000) |
|
39 threadDelay delay |
|
40 forkIO testing |
|
41 |
|
42 main = withSocketsDo $ do |
|
43 forks |
|