@@ -1416,7 +1416,6 @@ testRegistryMonitoring TestTransport{..} = do
1416 -- Many labels. Test if all labels associated with process
1416 -- Many labels. Test if all labels associated with process
1417 -- are removed from registry when it dies.
1417 -- are removed from registry when it dies.
1418 remote2 <- testRemote remoteNode
1418 remote2 <- testRemote remoteNode
1419− remoteX <- testRemote remoteNode
1420 runProcess localNode $
1419 runProcess localNode $
1421 let waitpoll = do
1420 let waitpoll = do
1422 w1 <- whereis "test-3" :: Process (Maybe ProcessId)
1421 w1 <- whereis "test-3" :: Process (Maybe ProcessId)
@@ -1424,11 +1423,8 @@ testRegistryMonitoring TestTransport{..} = do
1424 forM_ (w1 <|> w2) (const waitpoll)
1423 forM_ (w1 <|> w2) (const waitpoll)
1425 in do register "test-3" remote2
1424 in do register "test-3" remote2
1426 register "test-4" remote2
1425 register "test-4" remote2
1427− register "test-X" remoteX
1428 send remote2 ()
1426 send remote2 ()
1429 waitpoll
1427 waitpoll
1430− rX <- whereis "test-X"
1431− rX `shouldBe` (equalTo (Just remoteX))
1432 return ()
1428 return ()
1434{- XXX: waiting including patch for nsend for remote process
1430{- XXX: waiting including patch for nsend for remote process