@@ -1416,7 +1416,6 @@ testRegistryMonitoring TestTransport{..} = do
14161416 -- Many labels. Test if all labels associated with process
14171417 -- are removed from registry when it dies.
14181418 remote2 <- testRemote remoteNode
1419− remoteX <- testRemote remoteNode
14201419 runProcess localNode $
14211420 let waitpoll = do
14221421 w1 <- whereis "test-3" :: Process (Maybe ProcessId)
@@ -1424,11 +1423,8 @@ testRegistryMonitoring TestTransport{..} = do
14241423 forM_ (w1 <|> w2) (const waitpoll)
14251424 in do register "test-3" remote2
14261425 register "test-4" remote2
1427− register "test-X" remoteX
14281426 send remote2 ()
14291427 waitpoll
1430− rX <- whereis "test-X"
1431− rX `shouldBe` (equalTo (Just remoteX))
14321428 return ()
14331429
14341430{- XXX: waiting including patch for nsend for remote process