@@ -1513,9 +1513,7 @@ tests testtrans = return [
1513 , testCase "Timeout0" (testTimeout0 testtrans)
1513 , testCase "Timeout0" (testTimeout0 testtrans)
1514 , testCase "SendToTerminated" (testSendToTerminated testtrans)
1514 , testCase "SendToTerminated" (testSendToTerminated testtrans)
1515 , testCase "TypedChannnels" (testTypedChannels testtrans)
1515 , testCase "TypedChannnels" (testTypedChannels testtrans)
1516− , testCase "MergeChannels" (testMergeChannels testtrans)
1517 , testCase "Terminate" (testTerminate testtrans)
1516 , testCase "Terminate" (testTerminate testtrans)
1518− , testCase "Registry" (testRegistry testtrans)
1519 , testCase "RegistryRemoteProcess" (testRegistryRemoteProcess testtrans)
1517 , testCase "RegistryRemoteProcess" (testRegistryRemoteProcess testtrans)
1520 , testCase "RemoteRegistry" (testRemoteRegistry testtrans)
1518 , testCase "RemoteRegistry" (testRemoteRegistry testtrans)
1521 , testCase "RemoteRegistryRemoteProcess" (testRemoteRegistryRemoteProcess testtrans)
1519 , testCase "RemoteRegistryRemoteProcess" (testRemoteRegistryRemoteProcess testtrans)
@@ -1556,8 +1554,7 @@ tests testtrans = return [
1556 -- The "missing" combinations in the list below don't make much sense, as
1554 -- The "missing" combinations in the list below don't make much sense, as
1557 -- we cannot guarantee that the monitor reply or link exception will not
1555 -- we cannot guarantee that the monitor reply or link exception will not
1558 -- happen before the unmonitor or unlink
1556 -- happen before the unmonitor or unlink
1559− testCase "MonitorUnreachable" (testMonitorUnreachable testtrans True False)
1560− , testCase "MonitorNormalTermination" (testMonitorNormalTermination testtrans True False)
1557+ testCase "MonitorNormalTermination" (testMonitorNormalTermination testtrans True False)
1561 , testCase "MonitorAbnormalTermination" (testMonitorAbnormalTermination testtrans True False)
1558 , testCase "MonitorAbnormalTermination" (testMonitorAbnormalTermination testtrans True False)
1562 , testCase "MonitorLocalDeadProcess" (testMonitorLocalDeadProcess testtrans True False)
1559 , testCase "MonitorLocalDeadProcess" (testMonitorLocalDeadProcess testtrans True False)
1563 , testCase "MonitorRemoteDeadProcess" (testMonitorRemoteDeadProcess testtrans True False)
1560 , testCase "MonitorRemoteDeadProcess" (testMonitorRemoteDeadProcess testtrans True False)
@@ -1579,7 +1576,14 @@ tests testtrans = return [
1579 , testCase "MonitorLiveNode" (testMonitorLiveNode testtrans)
1576 , testCase "MonitorLiveNode" (testMonitorLiveNode testtrans)
1580 , testCase "MonitorChannel" (testMonitorChannel testtrans)
1577 , testCase "MonitorChannel" (testMonitorChannel testtrans)
1581 -- Reconnect
1578 -- Reconnect
1581+ -- Tests that fail occasionally and should be revised
1582+ , testGroup "Flaky" [
1582− , testCase "Reconnect" (testReconnect testtrans)
1583+ testCase "Reconnect" (testReconnect testtrans)
1584+ , testCase "Registry" (testRegistry testtrans)
1585+ , testCase "MergeChannels" (testMergeChannels testtrans)
1586+ , testCase "MonitorUnreachable" (testMonitorUnreachable testtrans True False)