git.iko.soy/distributed-process
on master help sign in
d-p-tests: Use line buffering in runTCP.
74401a3Facundo Domínguez
distributed-process-tests/tests/runTCP.hs+3
compare with master
unifiedsplit
@@ -16,9 +16,12 @@ import Test.Framework (defaultMainWithArgs)
16
16
17import Control.Concurrent (threadDelay)
17import Control.Concurrent (threadDelay)
18import System.Environment (getArgs)
18import System.Environment (getArgs)
19+import System.IO
19
20
20main :: IO ()
21main :: IO ()
21main = do
22main = do
23+ hSetBuffering stdout LineBuffering
24+ hSetBuffering stderr LineBuffering
22 Right (transport, internals) <-
25 Right (transport, internals) <-
23 createTransportExposeInternals "127.0.0.1" "8080"
26 createTransportExposeInternals "127.0.0.1" "8080"
24 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
27 defaultTCPParameters { transportConnectTimeout = Just 3000000 }