Remove threadDelay in monitoring tests.

qnikst · qnikst · commit dcd8614c29b7 · 2015-07-13T21:45:03.000+03:00
diff --git a/src/Control/Distributed/Process/Tests/CH.hs b/src/Control/Distributed/Process/Tests/CH.hs
@@ -199,7 +199,7 @@ testMonitorUnreachable TestTransport{..} mOrL un = do
 
   forkIO $ do
     localNode <- newLocalNode testTransport initRemoteTable
-    addr <- forkProcess localNode . liftIO $ threadDelay 1000000
+    addr <- forkProcess localNode expect
     closeLocalNode localNode
     putMVar deadProcess addr
 
