roll back some nonsense in the tests

hyperthunk · hyperthunk · commit d1d192a6427b · 2018-11-12T16:18:36.000Z
diff --git a/distributed-process-tests/src/Control/Distributed/Process/Tests/CH.hs b/distributed-process-tests/src/Control/Distributed/Process/Tests/CH.hs
@@ -1416,19 +1416,15 @@ testRegistryMonitoring TestTransport{..} = do
   -- Many labels. Test if all labels associated with process
   -- are removed from registry when it dies.
   remote2 <- testRemote remoteNode
-  remoteX <- testRemote remoteNode
   runProcess localNode $
     let waitpoll = do
         w1 <- whereis "test-3" :: Process (Maybe ProcessId)
         w2 <- whereis "test-4" :: Process (Maybe ProcessId)
         forM_ (w1 <|> w2) (const waitpoll)
     in do register "test-3" remote2
           register "test-4" remote2
-          register "test-X" remoteX
           send remote2 ()
           waitpoll
-          rX <- whereis "test-X"
-          rX `shouldBe` (equalTo (Just remoteX))
           return ()
 
 {- XXX: waiting including patch for nsend for remote process
