@@ -295,6 +295,13 @@ testMath transport = do
295295
296296 takeMVar clientDone
297297
298+testTimeout :: NT.Transport -> IO ()
299+testTimeout transport = do
300+ localNode <- newLocalNode transport initRemoteTable
301+ runProcess localNode $ do
302+ Nothing <- receiveTimeout 1000000 [match (\(Add _ _ _) -> return ())]
303+ return ()
304+
298305-- TODO: test timeout
299306
300307main :: IO ()
@@ -303,6 +310,7 @@ main = do
303310 runTests
304311 [ ("Ping", testPing transport)
305312 , ("Math", testMath transport)
313+ , ("Timeout", testTimeout transport)
306314 -- The "missing" combinations in the list below don't make much sense, as
307315 -- we cannot guarantee that the monitor reply or link exception will not
308316 -- happen before the unmonitor or unlink