equal
deleted
inserted
replaced
42 hPutStrLn h "" |
42 hPutStrLn h "" |
43 hFlush h |
43 hFlush h |
44 |
44 |
45 emulateSession :: StateT SState IO () |
45 emulateSession :: StateT SState IO () |
46 emulateSession = do |
46 emulateSession = do |
47 n <- io $ randomRIO (100000::Int, 100000) |
47 n <- io $ randomRIO (100000::Int, 100100) |
48 waitPacket "CONNECTED" |
48 waitPacket "CONNECTED" |
49 sendPacket ["NICK", "test" ++ (show n)] |
49 sendPacket ["NICK", "test" ++ (show n)] |
50 waitPacket "NICK" |
50 waitPacket "NICK" |
51 sendPacket ["PROTO", "31"] |
51 sendPacket ["PROTO", "31"] |
52 waitPacket "PROTO" |
52 waitPacket "PROTO" |