git.iko.soy/distributed-process
on master help sign in
Relax test condition in testSpawnReconnect
076ab9eEdsko de Vries
distributed-process/tests/TestClosure.hs+1−1
@@ -418,7 +418,7 @@ testSpawnReconnect transport rtable transportInternals = do
418 liftIO $ threadDelay 100000
418 liftIO $ threadDelay 100000
419
419
420 count <- liftIO $ takeMVar iv
420 count <- liftIO $ takeMVar iv
421− True <- return $ count == 3
421+ True <- return $ count == 2 || count == 3 -- It depends on which message we get first in 'spawn'
422
422
423 liftIO $ putMVar done ()
423 liftIO $ putMVar done ()
424
424